


1980: il était déjà là avant même l'explosion de la micro- 
informatique , prêt à évoluer avec elle d'année en année. 


1984/1985 :ilest “la” Bible. Sontitre, ses fidèles le lui ont donné, 
naturellement : “LE” GUIDE. 

Instrument de première approche des néophytes. 

Référence des passionnés, des vrais amateurs, des profes- 
sionnels, des constructeurs, des vendeurs. 


1984/1985 : LE GUIDE MICRO présente : 

- les 216 fiches techniques détaillées des micro-ordinateurs 
du marché (de 500 FF à 50 000 FF), 

- le tableau exclusif de plus de 130 imprimantes, 

-un panorama des 60 logiciels à connaître dans toutes 
les applications, 

- près de 2000 adresses de constructeurs, de clubs et 
de boutiques, par ordre alphabétique et par département, 

- les mots clefs de l'informatique. 





1°" septembre 1984: 
LE GUIDE MICRO est vendu 35 FF 


chez votre marchand de journaux. 
1984/1985 : élaboré par une équipe de journalistes, LE GUIDE 
MICRO explique : qu'est-ce qu'un ordinateur ? Que permet-il ? 
LE GUIDE MICRO prend parti et dit pourquoi: pour où contre 
55 ordinateurs individuels. || commente les grandes manœu- 


vres de l’année 84. Il tutoie l'avenir : les ordinateurs de janvier 
85 sont au rendez-vous. 


LE GUIDE DE 


TLORDINATEUR 
INDIVIDUEL 
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Des cassettes et disquettes 


pour le TI-99/4A 


Cassette 99A 


Basic TI : 
Electronique 
Mineur 

Basic Etendu : 
Prêt 


Cassette 99B 


Basic TI : 
Yathzee 
Division 


Cassette 99C 


Basic TI : 
Division 

Course 

Basic Etendu : 
Dames 

Nim 

Isola 

Schmoo 


Cassette 99D 
Basic TI : 


Cannibales 
Basic Etendu : 
Conjugaisons 
Poker 


Cassette 99E 


Basic TI : 
Mic-Math 

Course de chevaux 
Jeu de poursuite 
Jeu de dés 


Basic Etendu : 


Basic Etendu : Caractérologie 
Chardef Car driver 


Guerre atomique 
Course en ligne droite 


(2 )uncazme 


BON DE COMMANDE 


Je désire recevoir la cassette 


[_] 99 À : Mineur, Prêt, Electronique UF TIC 
[] 99 B : Yahtzee, Chardef, Division, Régression linéaire GLETIC 
[] 99 C : Dames, Nim, Division 2, Isola, Schmoo, Robots DO EF EIC 
[] 99 D : Conjugaisons, Caractérologie, Car driver, Poker, Cannibales OU FTIC 


[] 99 E : Mic-Math, Course de chevaux, Jeu de poursuite, Jeu de dés, 
Guerre atomique, Course en ligne droite 50FTIE 


[] Disquette « Mastermind » (cf. 99 Magazine n° 3) no FFC 
[ ] Disquette « Routines graphiques » (cf. 99 Magazine n° 4 et 5) 
[ ] Disquette « Désassembleur » (cf. 99 Magazine n° 5) 


Ces tarifs comprennent l'envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : + 10F 


Envoyez ce bon de commande et votre règlement à : 


Editions MEV - 64-70, rue des Chantiers - 78000 Versailles 
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Editorial 


Cela fait maintenant presqu'une année que Texas Instruments à interrompu la fabrication du TI-99/4A. 
Cependant. nous sommes toujours là car nous vous avions fait la promesse de ne pas vous abandon- 
ner. mais aussi parce que notre ordinateur est loin d'être mort. La Règle à calcul. célèbre revendeur 
parisien. nous le prouve en sortant une extension de mémoire. une interface parallèle et divers logiciels 
parmi lesquels nous trouvons la Mini-mémoire et le Basic-Etendu. 


La cassette d'accompagnement de ce numéro. contrairement à nos habitudes, comporte des program- 
mes différents sur les deux faces : cela est dû au fait que certains programmes proposés dans ce nu- 
méro sont très longs. alors que des problèmes techniques liés à la duplication de cassettes “informati- 
ques‘ nous interdisent de dépasser une certaine longueur de bande magnétique. Je ne pense pas que 
cela soit un problème car le taux de défection est vraiment très faible. 


Nous essayons de mettre dans chaque numéro des programmes et articles de tous niveaux et de toutes 
natures. Cependant. si vous désirez voir paraître un article sur tel ou tel sujet, ne manquez pas de nous 
le faire savoir : nous sommes à votre disposition. 


Passons maintenant au contenu de ce numéro. Edouark Krok nous propose une fois de plus un 
excellent programme de son cru. qu'il a intitulé ‘Des chiffres et des lettres”. pendant que François 
Blanchard vous entraîne dans un combat sans merci contre l'abominable Kong. 


Gérard Santraille, toujours fidèle au poste. n'a pas délaissé son cher Pascal puisqu'il vous propose 
deux programmes susceptibles de vous donner l'heure. Pour les mordus de l'Assembleur. - langage 
primaire mais 6 combien efficace, Jean-Luc Bazanegue vous communique une routine propre à affi- 
cher des caractères ASCII dans la page graphique. 


Les bricoleurs pourront s'en donner à cœur joie avec l'article de Guy Fix, qui vous propose d'étendre 
la mémoire de votre Mini-mémoire. mais aussi avec celui de Sophie Ehster qui vous démontre qu'il 
est parfaitement possible de raccorder des lecteurs double face sur votre TI. à conditions, toutefois, de 
disposer du contrôleur de disquettes Texas Instruments. 


Marianne Sutz nous a concocté un très intéressant article sur l'organisation en mémoire du Basic TI, 
alors que Gérard Baroni et Jean Maria - les deux animateurs du club Ticazur - se sont penché sur la 
Mini-mémoire et ont découvert un moven de détourner l'instruction CALL PEEK de son rôle habituel. 


Logik (il s'agit certainement d'un pseudonyme...) met à votre disposition un programme de traitement 
de texte écrit en Basic TI. pendant que Michel Legault, dans un tout autre registre, utilise les possibili- 
tés musicales du TI pour le transformer en un outil de création musicale. Jack Keck, quant à lui, vous 
offre un programme qui vous permettra de réviser le code de la route. 


Les possesseurs d'imprimante Seikosha peuvent désormais s'adonner aux joies de la copie d'écran, 
grâce au programme de Mansur Tufail. Denise Amrouche vous propose quelques routines en As- 
sembleur afin d'améliorer l'affichage du Basic TI. alors que T. Gallier, en cette période de rentrée 
scolaire. vous invite à participer à un cours d'anglais. 


Nous ne conclurons pas sans citer le conséquent mais excellent jeu d'aventure de Jean-Philippe 
Guillemant, et la rubrique dédiée à votre courrier. toujours assurée par Alexandre Duback. 


Hervé Thiriez 


Rédaction en chef-Directeur de la publication : Hervé Thiriez Comité de rédaction : Jean-Luc Bazanegue, 
Gérard Santraille. Dessins : Laurent Bidot. Ont collaboré à ce numéro : Denise Amrouche, Gérard Baroni, 
François Blanchard. Jean-Luc Bazanegue. Alexandre Duback. Sophie Ehster. Guy Fix. T. Gallier. Jean-Philippe 
Guillemant. Jacques Keck. Edouard Krok. Michel Legault. Logik. Jean-Marin. Gérard Santraille, Marianne Sutz, 
Mansur Tufail. 


Editions MEV - 64-70. rue des Chantiers - 78000 Versailles. 

Régie publicitaire : Force 7 - Anne Jourdan - 5. place du Colonel Fabien. 75010 Paris - Tél. : 240.22.01. 
Diffusion auprès des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Marne Cedex. 
Composition : Télécompo - 13-15. avenue du Petit Parc - 94300 Vincennes. 

Impression : Imprimerie Rosay - 47. avenue de Paris - 94300 Vincennes - Tél. : 328.18.63. 





*)‘) MAGAZINE n° 6 o 


Des chiffres et des lettres 


Edouard Krok 


Il me semble superflu de présenter ce 
jeu qui passionne, chaque soir, des 
milliers de téléspectateurs et qui a fait 
naître de nombreux clubs dans toute 
la France. 


Le programme que je vous propose 
accepte jusqu’à quatre joueurs et 
vous permet de choisir entre le mot 
le plus long, le compte est bon et le 
jeu des chiffres et des lettres. Vous 
décidez aussi de la durée du jeu. 


Ce programme respecte les mêmes 
pourcentages de tirage des lettres et 
des chiffres que le jeu télévisé; il se- 
rait en effet aberrant de tirer autant 
de "W” que de ”’R” ou de ”S”, de 
même pour les chiffres. L'ordre des 
joueurs, qui revêt une certaine im- 
portance si l’on joue à plus de deux, 
est déterminé par tirage au sort en 
début de partie. Le nombre de tours, 
ainsi que l'alternance des jeux de 
chiffres et de lettres sont combinés 
pour laisser des chances identiques à 
chaque joueur, quel que soit le nom- 
bre de participants. 


J’ai prévu la possibilité d'interrompre 
le chronomètre en appuyant sur 
n'importe quelle touche: il me paraît 
en effet assez agaçant, lorsque l’on 
joue seul, de devoir attendre qua- 
rante secondes si on trouve le bon 
compte en cinq secondes (oui, cela 
arrive quelquefois !). 

La question est plus délicate si on est 


plusieurs : on peut convenir, en 
début de partie, d'attendre systémati- 
quement le temps réglementaire de 
45 secondes, ou de n'interrompre le 
chronomètre qu'avec l'accord des 
participants. 

Dans tous les cas, votre temps de ré- 
ponse sera limité et vous serez sanc- 
tionné si vous le dépassez. Si ce délai 
de réponse vous paraît trop court 
(ou trop long), il vous suffira d’aug- 
menter (ou de diminuer) la valeur de 
la variable DL, à la ligne 100. 


Le jeu du mot le plus long ne me 
semble pas poser de problèmes parti- 
culiers, étant entendu que vous choi- 
sissez une voyelle ou une consonne 
en appuyant sur V ou C; mais si 
vous mettez trop de temps pour vous 
décider, c’est le programme qui tran- 
chera. En revanche, il vous laissera 
tout le temps qui vous sera néces- 
saire si vous désirez contrôler la vali- 
dité d’un mot dans le dictionnaire. 
Notez aussi qu'il vous faudra taper 
sur une touche quelconque du cla- 
vier pour poursuivre la partie. 


Pour le jeu du compte est bon, quel- 
ques explications vous feront mieux 
saisir la souplesse de ce programme. 
Les opérateurs utilisables pour don- 
ner votre solution sont : 


e addition : + 
e soustraction : — 
e multiplication : x ou X 


e division : / ou: 

e résultat : = 

N'oubliez pas, bien sûr, d'appuyer tr 
la touche SHIFT lorsque vous utilisez 
+, —; # OÙ: 


Exemple : 


nombre à trouver - 635 
Chiffres tirés - 6 - 10 - 8 - 3 - 100 - 
2 


Première solution valide : 
100 + 8 = 108 

108 — 3 = 105 

105 x 6 = 630 
10:2=5 

630 + 5 = 635 
Seconde solution valide : 
100 + 8 — 3 x 6 630 
10 : 2 + 630 = 635 


Vous remarquerez, dans le deuxième 
exemple, que les opérations sont 
évaluées dans l’ordre où elles sont 
posées, et que les parenthèses ne 
sont pas acceptées. 


Si aucun joueur ne trouve le bon 
compte, le programme vous propo- 
sera une solution parmi d’autres pos- 
sibles. 


Si vous désirez jouer exactement 
comme au jeu télévisé, il vous suffira 
de choisir le jeu des chiffres et des 
lettres à deux joueurs et en vingt 
tours. 


10 HRXHAAEREEEREEEELEEEE 120 RANDOMIZE 

20 * JEU DES CHIFFRES * 130 OPTION BASE 1 

30 * ET DES LETTRES * 140 DIM SC(4) ,4(4),S$(5) ,LG(4) 

40 ÉFTISESSISIS IS IIS. 150 DEF V=INT(J/2.1)x5+2 

50 * BASIC TI * 160 DEF H=(J-INT(J/2.1)x2)*x14-9 

60 HARERAERREEREEREERRE 162 DEF 2=INT(6éxRND)+1 

70 REM * * 164 DEF NCX)=INT(-10#RND) #(X21)+INT(-4#RN 
80 *  EDOUARD KROK  * D)x25*(X=1) 

90 REM * * 170 DATA 00071F3F3F7F7F7F,00E0FS8FCFCFEFEF 
91 REM * x E,FEFEFEFCFCFSE,7F7F7F3F3F1F07,FFFFFFFF 
92 REM XX###X#H#EEEEREREAREX FFFFFFFF 

180 FOR 1=128 TO 132 

190 READ X$ 

200 CALL CHAR(I,X$) 


100 DL=200 
110 CALL SCREEN(8) 





6 *):) MAGAZINE n° 6 


210 CALL CHAR(1+8,X$) ng"::! 
220 NEXT I 1040 PRINT * 2 le compte est bon':: 
230 CALL CHAR(150,"0000FC7E3F7EFC") F 3 des chiffres" :TAB(15);"et des 
240 CALL CHAR(152,"0O0OFFFFFFFF") lettres"::: 
244 CALL CHAR(é64,"3C4202040810001") 1050 PRINT “COMBIEN DE JOUEURS ETES-VOUS" 
250 CALL CHAR(94,"") ::TAB(13) ;'un" :TAB(13) ;" deux" : TAB(13) ;" 
260 CALL COLOR(15,5,1) trois":TAB(13);"quatre"::: 
270 CALL COLOR(16,7,1) 1060 PRINT “LONGUEUR DU JEU :"::TAB(12);" 
280 S$(1)=" LE MOT LE PLUS LONG" -  tours"::TAB(12);"- tours"; 
290 S$(2)=" LE COMPTE EST BON" 1070 GOSUB 27000 
300 S$(3)="" 1080 IF (K)>48)*x(K<52)THEN 1110 
310 GOSUB 26000 1090 GOSUB 28000 
320 PRINT * JEU DES CHIFFRES" :::" 1100 GOTO 1080 
ET DES LETTRES"::2:2:2:332: 1110 CALL SOUND(200,-5,5) 
330 PRINT " tapez toujours une touche"::"| 1120 JEU=K-48 
quelconque pour continuer" 1130 CALL HCHAR(2+2*JEU,10,150) 
340 CALL HCHAR(14,12,152,8) 1140 FOR I1=1 TO 4 
341 R=-1 1150 CALL HCHAR(13+1,13,48+1) 
350 GOSUB 27000 1155 A(I1)=0 


500 PRINT S$(1):::::" au debut vous choi| 1160 NEXT 1] 

sissez :":"v-voyelles  c-consonnes.":: 1170 GOSUB 28000 

: 1180 IF (K<49)+(K)>52)THEN 1170 
520 PRINT “ chaque joueur, lorsque sonno| 1190 CALL SOUND(200,-5,5) 

m est souligne, indique lenombre de let 1200 QJ=K-48 

tres du mot":"qu’il a trouve." 1210 CALL HCHAR(13+0J,13,150) 


530 PRINT ::" ]le joueur dont le nom est | 1215 JRM-0 

souligne doit inscrire son mot.":::" 1220 FOR I1=1 TO 2 

validation : verifiez dans* 1230 CALL HCHAR(20+2#1,15,48+1) 

534 PRINT "le dictionnaire si le mot es! 1240 CALL HCHAR(20+2%1,16,48-(QJ>2)*x2%1]) 
t acceptable et repondez :0o-oui n-non |1250 CALL HCHAR(20+2#1,13,48+1) 

" 1260 NEXT 1 

940 CALL HCHAR(3,12,150,10) 1270 GOSUB 28000 

950 GOSUB 27000 1260 IF (K<{49)+(K>50)THEN 1270 

630 PRINT S$(2):::::" a l’aide des 4 ope| 1290 CALL SOUND(200,-5,5) 
rations,essayez de parvenir au":"nombre 1300 TOUR=(10-(GJ>Z)*x2)#(K-48) 

encadre en utilisant" 1310 CALL HCHAR(20+2#(K-48) ,13,150) 

640 PRINT “tout ou partie des 6 nombresou| 1320 FOR I1=1 TO 500 

chiffres proposes."::: 1321 NEXT I 
650 PRINT * chaque joueur, lorsque sonno| 1330 GOSUB 26000 : 
m est souligne, indique lenombre le plu 1340 IF JEUX3 THEN 1360 

s proche qu’il a trouve."::: 1350 PRINT " JEU DES CHIFFRES" :::" 
652 PRINT “ le joueur designe doit do ET DES LETTRES" 

nner sa solution.":::" symboles utilis 1360 PRINT S$(JEUD::::::: 

ables :" 1370 PRINT "veuillez inscrire vos noms":: 
656 PRINT "rene co «EX =} "ou vos prenoms :"1::: 

660 CALL HCHAR(3,12,152,10) 1430 S=9 
670 GOSUB 27000 1434 CALL HCHAR(15,12,150,10) 

1020 R=0 1440 GOSUB 27000 

1021 GOSUB 26000 1450 FOR 1=i TO QJ 

1030 PRINT "CHOISISSEZ LE JEU QUI VOUS C| 1454 PRINT 
ONVIENT :"::" 1 le mot le plus lo 1460 INPUT S$(1) 
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1470 S$(I1)=SEG$(S$(I),1,13) 9010 FOR I=12 TO 14 

1480 SC(I1)=0 5020 CALL HCHAR(1,5,94,21) 

1490 NEXT 1 5030 NEXT I 

1500 CALL SOUND(300,800 ,6) 5040 CALL HCHAR(21,17,118) 

1510 CALL CLEAR 5050 CALL HCHAR(21,18,47) 

1520 FOR 1=5 TO 8 5060 CALL HCHAR(21,19,99) 

1530 CALL COLOR(I,2,8) 5070 CALL HCHAR(21,15,150) 

1540 NEXT 1 5080 FOR I=1 TO 9 

1542 PRINT TAB(25) ; "tour" : :TAB(26) ;"00":: | 5090 CALL SOUND(80,2000 ,4) 

1543 CALL HCHAR(21,27,152,4) 9100 FOR LE TO DL/10 

1550 FOR J=1 TO QJ 9110 CALL HCHAR(21,22,63) 

1560 X=INT(QJ#RND) +1 9120 CALL KEY{3,K,S) 

1570 IF S$(X)="" THEN 1560 5124 IF S=-1 THEN 5150 

1580 LG(J)=LEN(S$(X) ) 5130 IF K=86 THEN 5190 

1590 FOR W=1 TO LG(J) 5140 IF K=67 THEN 5260 

1600 K=ASC(SEGS(SS(X) ,W,1)) 9150 CALL HCHAR(21,22,32) 

1610 CALL HCHAR(U-1 ,H+W-1,K+(K<95)*x(K)64) | 5160 NEXT W 

#32) 9170 CALL SOUND(-100,150,5) 

1620 NEXT W 5180 IF INT(2*RND)THEN 5260 

1630 S$(X)="" 9190 CALL SOUND(200,800,6,-6,6) 

1640 CALL HCHAR(U+1,H+2,48,3) 9200 CALL HCHAR(21,22,118) 

1650 NEXT J 5210 IF INT(45%RND)THEN 5240 

1700 FOR TOUR=I TO TOUR 5220 X$="Y" 

1710 IF JEU=i THEN 1760 5230 GOTO 5290 

1720 GOSUB 10000 5240 X$=SE6$("AMAEEEEE] I OOUU" , INT (1 4%xRND) 

1740 IF JEU=2 THEN 3500 +1,1) 

1750 TOUR=TOUR+1 9250 GOTO 5290 

1760 GOSUB 5000 5260 CALL SOUND(200,300 ,6,-4,6) 

1780 IF (JEU=1)+(QJ=3) THEN 3500 9270 CALL HCHAR(21,22,99) 

1790 TOUR=TOUR+1i 9280 X$=SE6$("BBBCCCCDDDFFGGHHJKLLLLLMMMN 

1800 GOSUB 5000 NNNNPPPGRRRRRRRSSSSSSSTTTTTTUYX2Z" ,INT(S 

1820 IF (QJ=4)-(TOUR<>9)#(TOUR()19)THEN 3 | 9*RND) +1 ,1) 

500 9290 CALL HCHAR(13,5+2%] ,ASC(X#)) 

1830 TOUR=TOUR+1 9300 2$=2$4X$ 

1840 GOSUB 10000 5310 NEXT 1 

3500 NEXT TOUR 9312 CALL HCHAR(21,15,32,8) 

3510 S=-5 95314 CALL SOUND{400 ,660 ,2) 

3520 GOSUB 20000 5320 GOSUB 25000 

3530 CALL SCREEN(8) 5330 FOR I1=1 TO 7 

3540 FOR 1=1 TO 13 5340 CALL HCHAR(21 ,6+1 ,ASC(SEG$("combien" 

3550 CALL HCHAR(20,7+1 ,ASC(SEG$("r.recomm | ,1,1))) 

encer",1,1))) 953950 NEXT 1! 

3560 CALL HCHAR(22,7+1,ASC(SEG$("f.finir |5360 CALL HCHAR(21,5,150) 
"#151)3) 5370 FOR I=i TO QJ 

3570 NEXT 1 5380 CALL HCHAR(V,H,150,L6(J)) 

3580 GOSUB 28000 9390 CALL SOUND(150,250%J,4) 

3590 IF K=82 THEN 280 5400 FOR W=1 TO DL/5 

3600 IF K<)>70 THEN 3580 9410 CALL HCHAR(21,16,63) 

3610 CALL CLEAR 9420 CALL KEY(3,K,S) 

3620 END 5430 IF (K)47)*x(K<58)THEN 5500 

5000 GOSUB 20000 5440 CALL HCHAR(21,16,32) 
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5450 
5460 
5470 
5480 

5450 

5900 
5910 
59520 
5530 

5540 
5550 
5560 
5570 
59580 
59590 
5600 
9610 
5620 
5621 

5630 
5640 
9642 
5643 
5644 
5650 
5654 
5éé0 
5670 
5680 
5684 
Sé$'0 
5700 
5710 
5720 
5730 
5740 
5750 
5754 
5760 
5762 
5763 
5764 
5765 
5770 
5780 
5790 
5800 
on(o 
5810 
5820 
5830 


NEXT U 

CALL SOUND{150,150 ,4) 
CALL HCHAR(21,16,48) 
A(J)=48 

GOTO 5540 

CALL SOUND: 300,600 ,3) 
CALL HCHAR(21,16,K) 
ACJD=K 

1F K=57 THEN 5620 

CALL HCHAR(U,H,32,15) 
J=-J#(J<QJ)+1 

NEXT I! 

GOTO 5590 

J=-J#(J<@J)+1 

FOR 1=1 TO GI 

IF ACJ)(ACI)THEN 5580 
NEXT 1 

CALL HCHAR(21,5,32) 

CALL HCHAR(V,H,150,LG(J)) 
CALL HCHAR(21,16,4(J)) 
CALL SOUND(500 ,250%J,2) 
FOR 1=16 TO 18 

CALL HCHAR(1,5,94,21) 
NEXT 1! 

W=Q 

X#=2$ 

FOR 1=1 TO A(J)-48 

CALL HCHAR(17,5+1%2,64) 
CALL KEY{3,K,9) 

IF S=-1 THEN 5700 

IF CK)64)X(K{S12THEN 5750 
CALL HCHAR(17,5+1#2,94) 
WU | 

IF W<DL THEN 5670 

GOSUE 29000 

GOTO 7050 

CALL SOUND(100 ,-5,4) 

CALL HCHAR(17,5+1%2,K) 
X=POS(2$,CHR$CK) ,1) 

IF X=0 THEN 7000 

R=POS(X# ,CHR$CK) , 1 

CALL HCHAR(13,5+R%2,94) 
XS=SEGS(XS ,1,R-1)&"7"&SEGS(X$ ,R+1,9) 
28=SE 682$ ,1,X-1)8SE6S(Z$,X+1,9) 
NEXT 1 

FOR I=1 TO 15 

CALL HCHAR(23,6+1 ,ASC(SEG$("validati 


n)°,1,13)) 


NEXT 1 
CALL SOUND(150,250%J ,4) 
CALL HCHAR(23,5,150) 
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56840 
9850 
9860 
9870 
5660 
9890 
5700 
9710 
5920 
9930 
95940 
9950 
5760 
9970 
5780 
93990 
6000 
6010 
6020 
7000 
7020 
7030 


CALL HCHAR(23,24,43) 
CALL KEY(3,K,S) 

CALL HCHAR(23,24,32) 
IF S=0 THEN 5849 

CALL SOUND(-200,-5,4) 
CALL HCHAR(23,24,K+32) 
CALL HCHAR(23,5,32) 

IF K=78 THEN 7050 

IF K=79 THEN 5940 
GOTO 5820 

CALL SOUND(300 ,800 ,3) 
X=A(J) 

FOR 1=1 TO 4 

A(1)=0 

NEXT 1 

A(J)=X-48 

CALL HCHAR(U+1 ,H+6,43) 
CALL HCHAR(U+1,H+47,X) 
GOTO 7150 

CALL SOUND(300,150,3) 
FOR I=1 TO i8 

CALL HCHAR(23,4+1I ,ASC(SEG$ ("erreur d 


e lettre !",1,1)99) 


7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7160 
7190 


NEXT 1 

CALL SOUND(300 ,150 ,3) 
X=A(J) 

A(J)=0 

K=J 

FOR J=1 TO QJ 

IF J=K THEN 7140 
A(J)=X-48 

CALL HCHAR(U+1 ,H+6,43) 
CALL HCHAR(U+1 ,H+7,X) 
NEXT J 

CALL SOUND(100 ,2000 ,4) 
GOSUB 28000 

CALL SOUND(200 ,800 ,4) 
RETURN 


10000 GOSUR 20000 

10002 FOR 1=1 TO 21 

10004 CALL HCHAR(24,4+] ,ASC(SEGS$(" tir age 
des chiffres !",1,1))) 

10006 NEXT I! 

10100 X=N{2) 

10110 2$=STR#(X) 

10120 S$(5)="" 

10130 FOR 1=i TO 5 

10140 S=N(Z) 

10150 ON INT(4%RND)+1 GOTO 10170,10210,10 
250 ,10290 

10170 W=X+S 





10180 IF (W<1)2+(W>S99) THEN 10140 10600 29=2$4" "&STRI(S) 

10190 S$CI)=STRS(XI&"+" 10610 X=W 

10200 GOTO 10570 ité20 NEXT 1] 

10210 W=X-S 10630 IF (X<101)+(X)9S9)THEN 10100 
10220 IF (W<1)+(W>9S9)THEN 10140 10631 CALL COLOR(13,1,1) 

10230 S$CI)=STR$(X)&"-" 10632 CALL HCHAR(11,24,132,5) 
10240 GOTO 10570 10633 CALL HCHAR(15,24,132,5) 
10250 W=XXS 10634 CALL VCHAR(12,23,137,2) 
10260 IF (W<1)+(W>999)+(UEX)+CUESITHEN 10 | 10635 CALL UCHAR(12,29,132,3) 

140 10636 CALL HCHAR(11,23,128) 

10270 S$CI)=STR$(XI&"x" 10637 CALL HCHAR(11,29,129) 

10280 GOTO 10570 10638 CALL HCHAR(15,29,120) 

10290 1F 1=5 THEN 10575 10639 CALL HCHAR(15,23,131) 

10300 K=N(Z) - 10640 CALL CGOLOR(13,13,1) 

10310 ON INT((2+12/2)G0T0 10320 ,10360,104| 10650 X#=STR$(X) 

00 10654 CALL HCHAR(13,25,48,2) 

10320 W=K+S 10656 CALL HCHAR(24,1,32,32) 

10330 1F (W<1)+(W> 300) THEN 10300 10660 FOR 1=3 TG 1 STEF -1 

10340 S$CI1)=STR$(KI&" +" 10670 FOR W=48 TO ASC(SEGS(XS,1,1)) 
10350 GOTO 10410 10680 CALL SGUND(50 ,5000 ,2) 

10360 W=K-S 10690 CALL HCHAR(13,24+1 ,W) 

10370 1F (W<1)+(W>300) THEN 10300 10700 NEXT W 

10380 S$CI)=STRS(KI&"-" 10710 NEXT 1 

10390 GOTO 10410 10720 FOR 1=1 TO LEN(24) 

10400 W=K*S 10730 CALL HCHAR(11,4+1 ,ASC(SEGS(2Z8,1,1)) 
10402 1F (W<1)+(W>300)+(W=K)+(W=S)THEN 10| > 

300 10740 NEXT 1 

10404 S$C1)=STR#(K)&" x" 10750 GOSUB 25000 

10410 S$CI)=S$CI)&STRS(S)&"="ESTRE(W) 10760 FOR 1=1 TO 7 

10415 1=1+1 10770 CALL HCHAR(24,11+1 ,ASC(SEGS$("combie 
10430 2$=STR$(K)&" "&Z$&" "ESTRE(S) n",1,123) 

10435 K=u 10780 NEXT 1! 

10440 ON INT((Z+1)2/2)GOT0 10450 ,10490,105| 10790 FOR 1=1 TO QJ 

30 10800 CALL HCHAR(U,H,150,LG(J)) 
10450 W=X+K 10810 xg="" 

10460 IF K)999 THEN 10440 10820 R=0 

10470 S$(1)=STR$(X)&"+" 10830 CALL SOUND(150,250#J,4) 
10480 GOTO 10555 10840 CALL HCHAR(24,10,150) 

10490 W=X-K 10850 FOR W=1 TO 4 

10500 IF Ki THEN 10440 10870 CALL HCHAR(24,20+W,32) 

10510 S$C1)=STR$(X)&"-" 10880 R=R+1 

10520 GOTO 10555 10890 IF R)DL/3 THEN 11010 

10530 W=X*K 10900 CALL HCHAR(24,204W, 63) 

10540 1F (K>999)+(W=X)+(W=K)THEN 10440 10910 CALL KEY{3,K,S) 

10550 S$C1)=STR$S(X)&" x" 10920 IF (K<48)+(K357)4(S=-1)THEN 10870 
10555 S$(1)=S$C1)ESTRS(KI&"="ESTRE (WI) 10924 CALL SOUND(80,800 ,4) 

10560 GOTO 10610 10930 CALL HCHAR(24,204W,K) 

10570 S$(1)=S$C1)&STRS(S)&"="LSTRSE (WU) 10940 X$=XS&STRS(K-48) 

10575 IF INT(2#RND)THEN 10600 10950 IF (W=3)#(X)900)#(X$<"150")THEN 109 
10580 Z$=STR$(S)&" "&2$ 80 

10590 GOTO 10610 10960 1F W=3 THEN 10990 
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10980 
10990 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
0 
11150 
11160 
11170 
11180 
11185 
11190 
11200 
11210 
11220 
11230 
») 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11380 
11390 
11392 
11393 
11394 
11400 
11410 
11420 
11425 


NEXT W 

AG J)=VAL(XS) 

GOTO 11050 

1F (X<200)x(X$2>"70")THEN 10990 
CALL SOUND(150,150 ,4) 

CALL HCHAR(24,21,46,3) 

A(J)=0 

CALL HCHAR(24,10,32) 

CALL HCHAR(U,H,32,15) 

IF A(J)=X THEN 11160 
J=-J*x{J(QJ)+1 

CALL HCHAR(24,21,32,4) 

NEXT I 

GOTG 11130 

J=-Jx(J<{QJ)+1 

FOR I=i TG QGJ 

IF ABS{X-A(J)))ABS{X-ACI))THEN 1112 


NEXT 1 

FOR 1=1é TO 18 

CALL HCHAR(I,10,32,4) 

NEXT I 

CALL HCHAR(U,H,150,LG(J)) 

IF ACJ)=0 THEN 11950 

X#=STR#(A(J)) 

X=4-(X=A(J) ) #2 

FOR 1=1 TO LEN(X#) 

CALL HCHAR(24,20+1 ,ASC(SEGS(XS, 1,1) 


NEXT 1 

CALL SOUND(500 ,200%J ,2) 
At4)=A(J) 

A(1)=0 

I=14 

R=0 

W=4 

At3)=1 

Xg="" 

FOR Y=A(3)TQ 5 

W=W+ 1 

CALL HCHAR(I ,W,63) 
A(1)=AC1)+#1 

CALL KEY(3,K,S) 

CALL HCHAR(I ,U, 32) 

IF A(1)<DL43/2 THEN 11400 
GOSUB 29000 

GOTO 11790 

IF S()1 THEN 11350 

CALL SOUND(80 ,800 ,4) 

IF (K<{48)+(K)57)THEN 11500 
CALL HCHAR(I ,W,K) 
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11430 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11505 
11510 
11520 
,50) 

11530 
11540 
11550 
11560 
11570 
11580 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
11670 
11680 
11490 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 


X#=XS&STRSE (K-48) 

NEXT Y 

IF A(2){3VAL(X#$) THEN 11740 
IF A(2)=AC4)THEN 11870 
1=1+2 

2$=Z2$8X$ 

GOTO 11290 

IF Y=AC3)THEN 11330 
S=POS(2$,X8,1) 

IF S=0 THEN 11740 
24=SE68(28,1,S-1)&SEG$ (28, S+LEN(XS) 


IF R<)0 THEN 11560 
A(2)=VAL(XS) 

GOTQ 11670 

IF R(>43 THEN 11590 
A(2)=A(2)+VAL(XE ) 

GOTO 11670 

1F R<>45 THEN 11620 
A(2)=AC2)-VAL(XS) 

GOTO 11470 

IF (R<>42)#(R()120)THEN 11650 
AC2)=A(2) #VAL(XE) 

GOTO 11670 

IF (R<)47)#(R()58)THEN 11740 
A(2)=A(2)/VAL(XS) 

1F W<18 THEN 11700 

U=S5 

1=14+2 

R=K-(K=88) #32 

CALL HCHARCI ,W,R) 
A(3)=6-LENCSTRS(A(2))) 

1F K=61 THEN 11320 ELSE 11310 
CALL SOUND(500 ,150 ,2) 
1=1+2+(1=22) 

FOR W=1 TO 9 

CALL HCHAR(I,7+W,ASC(SEG$(" erreur 


1" ,W,13)) 


11780 
11790 
11791 
11792 
11793 
11795 
11800 
11810 
11820 
11830 
11850 
11860 
11870 


NEXT ï 

FOR W=1 TO 4 

A(W)=0 

NEXT 

W=J 

FOR J=1 TO QJ 

IF UW=J THEN 11850 
ACJI=X 

CALL HCHAR(U+1 ,H46,43) 
CALL HCHAR(U+1 ,H+7,484+X) 
NEXT J 

GOTO 11950 

CALL SOUND(500 ,600 ,2) 
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11880 FOR W=1 TO 4 20260 CALL HCHAR(16,11,140,2) 
11890 A(W)=0 20270 CALL HCHAR(18,11,140,2) 
11900 NEXT W 20280 CALL HCHAR(16,10,136) 
11905 A(J)=X 20290 CALL HCHAR(16,13,137) 
11910 CALL HCHAR(U+1 ,H+6,43) 20300 CALL HCHAR(18,13,138) 
11920 CALL HCHAR(U+1 ,H+7,484+X) 20310 CALL HCHAR(18,10,139) 
11930 IF X=8 THEN 11969 20320 CALL HCHAR(17,11,52) 
11950 FOR 1=1 TO DLx4 20330 CALL HCHAR(17,12,53) 
11955 NEXT 1 20340 CALL COLOR(14,10,1) 
11960 FOR 1=14 TO 22 20350 2$="" 

11961 CALL HCHAR(1,5,32,18) 20360 J=JRM 

11962 NEXT 1 20370 CALL HCHAR(U,H,150,LG(J)) 
11964 FOR I=1 TO 5 21000 RETURN 

11965 FOR 1 TO LEN(S#(1)) 25000 1=52 

11966 CALL HCHAR(12+1#2,44W,ASC(SEGS(S$(1 | 25010 FOR W=52 TO 48 STEP -1 
»),W,1))) 25020 FOR I=I TO 48 STEP -1 
11967 NEXT W 25030 CALL SOUND(70,1000,12) 
11968 NEXT I! 25040 CALL HCHAR(17,11,W) 
11969 CALL SOUND(100,2000 ,4) 25050 CALL HCHAR(17,12,1) 
11970 GOSUB 28000 25060 CALL KEY(3,K,5) 

11980 CALL SOUND(200 ,800 ,4) 25070 1F S THEN 25120 

11990 RETURN 25080 CALL SOUND(450 ,40000 ,30) 
20000 CALL HCHAR(2,1,32,32) 25090 NEXT 1 

20010 CALL HCHAR(7,1,32,32) 25100 1=57 

20020 CALL HCHAR(11,1,32,313) 25110 NEXT W 

20030 FOR 1=21 TO 24 25120 RETURN 

20040 CALL HCHAR(I,1,32,25) 26000 CALL CLEAR 

20050 NEXT 1 26010 FOR I=1 TO 12 

20060 JRM=-JRMX(JRM<QJ) +1 26020 CALL COLOR(I,1,1) 

20070 CALL SCREENCVAL(SEGS$("11140415" ,JRM| 26030 NEXT 1 

*2-1,2))) 26040 RETURN 

20080 FOR J=1 TO QJ 27000 FOR 1=5 TO 8 

20100 SC(J)=SC(J)+ACJ) 27010 CALL COLOR(I,2,1) 

20110 X$=STR#(SC(J)) 27020 NEXT 1 

20120 X=LEN(X$) 27030 FOR 1=1 TO 500-(K=0)x500 
20130 CALL HCHAR(U+1,H+6,32,2) 27040 NEXT 1 

20132 IF A(J)=0 THEN 20170 27050 FOR 1=12 TO 1 STEP -1 
20140 FOR I1=X TO 1 STEP -1 27060 CALL COLOR(1,2,1) 

20150 CALL HCHAR(U+1 ,H+4-X+1 ,ASC(SEGS(XS, | 27070 NEXT 1 

1,133) 27080 IF S=9 THEN 28020 

20160 NEXT 1 28000 CALL KEY(3,K,S) 

20170 NEXT J 28010 IF S()1 THEN 28000 
20180 IF S=-5 THEN 21000 28014 IF R=-1 THEN 26000 
20190 X$=STRS(TOUR) 28020 RETURN 

20200 X=LEN(X$) 29000 CALL SOUND(500,150,2) 
20210 FOR 1=X TO 1 STEP -1 29002 CALL HCHAR(24,1,32,32) 
20220 CALL HCHAR(22,29-X+1 ,ASC(SEGS(X$,1,| 29010 FOR K=1 TO 20 

13) 29020 CALL HCHAR(24,4+K,ASC{SEG$(“reponde 
20230 NEXT 1 z plus vite !",K,1))) 

20240 CALL COLOR(14,1,1) 29030 NEXT K 

20250 CALL HCHAR(17,10,140,4) 29040 RETURN 
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Ces deux petits programmes Pascal 
permettent à votre TI-99 de gérer 
l'heure. Leur emploi est extrême- 
ment simple et ressemble à celui em- 
ployé par d’autres systèmes d'exploi- 
tation (tels MS-DOS ou CPM). 

Notre TI ne disposant pas de pile 
permettant de conserver l'heure il 
convient d'’initialiser l'horloge à cha- 
que session du système. Si vous sau- 
vegardez le programme init-heure 
sous le nom /H et le programme aff- 
heure sous le nom H rien de plus 
simple pour les utiliser : 


e revenir au mode commande si 
l'on ne s’y trouve pas déjà: 

e sélectionnez X (eXecute) et IH à 
What file?. 


Si l'on désire initialiser automatique- 
ment l'heure à chaque session du P- 
système, il faut sauvegarder le pro- 
gramme init-heure sous le nom SYS- 
TEM.STARTUP sur la disquette ra- 
cine (celle qui démarre le système). 
Le programme affiche Heure Minute. 
auquel on répond en indiquant 
heure et minute courantes séparées 
par un espace (et non pas par une 
virgule comme en Basic). L'emploi 
de aff-heure est encore plus simple. 
eXecute H et l'heure s'affiche, le sys- 
tème vous rendant la main. 


Détaillons un peu ces deux program- 
mes. 


program aff_heure; 
const K=65536.0; 


type 
octet 0..2553; 
bloci record 
tampon: 
heure : 
minute : 
tampon 2: 
end; 


integer ; 
integer; 


hsi,hs2,h,m:iinteger; 
rs{i,rs2:real; 
b:blaci; 


begin 
page(output); 
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packed array{[1..22] of octet; 


packed array[1,..486] of octet 


A l’heure du Pascal 


Init-heure écrit sur deux entiers dans 
l'une des nombreuses places vides 
du ‘directory de la disquette (voir à 
ce sujet le numéro 5 de ‘99 Maga- 
zine”) l'heure et la minute auxquelles 
accédera par la suite le programme 
aff-heure. Avant d'aller plus loin, dé- 
crivons la procédure intrinsèque 


TIME. 


TIME{(h1,h2) retourne en deux en- 
tiers non signés (c'est-à-dire dont les 
16 bits sont significatifs: un entier 
signé est écrit sur 15 bits, le premier 
servant à déterminer le signe, un en- 
tier non signé ne peut donc être né- 
gatif et varie entre Oet2 16—1à 
savoir 65535) le nombre de périodes 
(une période = un 50ème de se- 
conde) écoulées depuis que le sys- 
tème a été démarré. 


Le nombre de secondes écoulées 
correspond donc à (h1 x 65536 + 
h2) / 50: à partir de là, on peut faire 
ce que l’on veut. 

La valeur stockée par init-time cor- 
respond à celle indiquée par l’utilisa- 
teur, diminuée de l'heure du système 
au moment de la manipulation (on 
peut ainsi initialiser l'heure à n'im- 
porte quel moment de la session. 


Aff-heure fait l'opération inverse: il 
additionne (après conversion) l'heure 


Gérard Santraille 


indiquée par le système à celle mé- 
morisée sur la disquette. Une petite 
explication s'impose : 

notons Hr l'heure réelle et Hs l'heure 
système au moment de l'exécution 
de init-heure. L'information mémori- 
sée est Hr — Hs. Quand on fait 
appel à aff-heure, il s’est écoulé dh: 
l'heure réelle est Hr + dh que l’on 
retrouve bien en additionnant l'heure 
système (qui vaut Hs + dh) à l'heure 
mémorisée. En effet, Hr + dh = (Hr 
— Hs) + (Hs + dh). 


Remarques : 


e la carte P-code n'étant pas sélec- 
tée en permanence, une certaine 
dérive de l'heure peut se produire. 
Il convient alors de rectifier (à la 
baisse) la valeur 3000 (50 fois 60) 
que l’on trouve dans la formule de 
conversion, 
notez, dans les programmes, l'em- 
ploi d’une des instructions les plus 
puissantes du Pascal : l'accès à un 
élément d’un type enregistrement 
par ‘enregistrement. élément’. 
Notez également l'écriture 
k=65536.0 pour forcer la cons- 
tante k à être réelle afin de pou- 
voir faire des calculs sur des va- 

leurs supérieures à 32767 (2 15 

L 


unitread(4,b,512,2); 


h:=b.heure; 
m:=b.minute; 


timeChsi,hs2); 


rsi:=hsi; 
rs2:=hs2; 


if rs2€0 then rs2:=rs2+kK; 
hs2:=trunc((rsixK+rs2)/3000) ; 


hsi:=hs2 div 60; 


hs2:=hs2 mod 60; 


hs2:=hs2+m; 
if hs2)>=60 then 


begin 


hs2:=hs2-60; 
hsi:=hsiti; 


end; 


hsi:=hsith; 


hsi:=hsi mod 24; 


gotoxy(0,1); 


writeln(hsi:2,’h",hs2:2,’mn°) 


end, 
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write(’Heure Minute 
readin(h,m); 
time(hsi,hs2); 
rsi:=hsi; 
rs2:=hs2; 
if rs2(0 then rs2:=rs2+K; 
hs2:=trunc((rsixK+trs2)/3000) ; 
hsi:=hs2 div 60; 
hs2:=hs2 mod 60; 
h:=h-hsi; 
if h<O then h:=24#h; 
m:=m-hs2; 
if m<O then 
di begin 
h:=h-1; 
m:=60+m 
end; 
b.heure:=h; 
b.minute :=m; 
unitwrite(4,b,512,2) 
end. 


program init_heure; ‘,chr(22)3; 


const kK=65536.0; 


type 
octet = 0..255; 


bloci = record 
tamponi: packed array[1..22] of octet; 
heure : integer; 
minute : integer; 
tampon2: packed array[1..486] of octet 
end; 


var h,m,hsi,hs2:integer; 


rsi,rs2:real; 
b:bloci; 


begin 
page(output); 
unitread(4,b,512,2); 


Kong 


François Blanchard 


Ce programme de jeu écrit en Basic 
étendu est une adaptation très libre 
du célèbre ‘Donkey Kong”. 


Scénario 


Le but du jeu est d'ammener Robert 
au sommet de l’échafaudage afin 
qu'il puisse délivrer sa fiancée, pri- 
sonnière de l'ignoble Kong. Robert 
doit éviter les flammes qui sillonent 


Si vous parvenez au sommet de 
l'échafaudage cinq fois de suite, vous 
obtenez un bonus de 1000 points, 
mais ne vous faites pas d'illusions: les 
flammes accélèrent. 


Utilisation 


Seule la manette de jeux numéro 
deux est utilisée pour les déplace- 


dessus des flammes. Notre ami subit 
certaines contraintes : 


e il ne peut pas sortir de l'écran: 

e il ne peut monter qu'aux échelles: 

e il ne peut descendre qu'aux échel- 
les. 


les étages, en sautant par dessus. ments de Robert et ses sauts au 


100 ! KHXXAEEAEERERRERRRIIE 
110: + KONG * 
120 ! HXXEXEEXEEEEREEREXIEEX 
125 ! *# BASIC ETENDU % 
130 ! XXKKARAAEEREERRIRRIEEX 
135 

150 SC=0 
V2=14 :: V3=-1é6 :: V4=18 
160 DISPLAY AT(2,1)ERASE ALL :"VOULEZ-VOUS 
AIDER ROBERT À DELIVRER SA FIANCEE 


PRISONNIERE DE 
L'ABOMINABLE" :: DISPLAY AT(13,10):°"K 
ONG" 
170 GOSUB 860 
180 CALL KEY(O,K,S):: IF S=0 THEN 180 
190 CALL CLEAR :: CALL CHAR(112,"FFFF1824 
4281FFFF",59,"8181FF8181FF8181")'!POUTRE 
> ECHELLE 
200 CALL CHAR(104,"101429345E7B361C000000 
00000000000000000000000000000000" ) 'FLAM 


BONUS=0 :: VI=3 :: 


se Vi=-12 :: 
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ME 

210 CALL CHAR(120,"3068702070D8D8C8F87060 
6060606070000000000000000000000000" ) MA 
RIO D 

220 CALL CHAR(124,"000042181818FFFF181854 
181818181800000000000000000000000")! CR 
O1X 

230 CALL CHAR(128,"60B0702070D8D8B8F 87030 
3030303070000000000000000000000000" > :MA 
RIO G 

240 CALL CHAR(132,"0C131313000A0E0E1F3F3F 
éA55AA00000000A0C0200000000000808040À00 
000")'FIANCEE 1 

250 CALL CHAR(136,"000C040C04354020000000 
000011043300000000008040800000000000000 
000")! FIANCEE 2 

260 CALL CHAR(114,"O06CFEFE7C7C3810")! CO 

EUR FIANCEE 

270 CALL CHAR(96,"030108080460F0F8783C0E 1 

E3E786000C080101020060F1F1E3C70787C1E06 
00") !KONG 1 

280 CALL CHAR(108,"000615371B1E0F05030101 
01000000E00060A8ECD838F0A0C010101000000 
007“) 'KONG 2 

290 CALL CHAR(100,"60C0607030100000000000 
000000000000000000000000000000000000000 
000")'BRAS GAUCHE KONG 

300 CALL CHAR(92,"603060E0C04000000000000 
000000000000000000000000000000000000000 

000")'BRAS D KONG 

310 CALL SCREEN(2) 

320 FOR L=23 TO 11 STEP -4 :: CALL HCHARC 
L,1,112,32):: NEXT L :: CALL VCHAR(20,3 
0,59,3:: CALL VCHAR(16,5,59,3):: CALL VC 
HAR(12,18,59,3) 

330 CALL VCHAR(8,10,59,3):: CALL VCHAR(S, 
25,59,6):: CALL VCHAR(S5,27,59,6):: CALL 
HCHAR(7,9,112,16):: CALL HCHAR(4,25,112, 
3) 

340 CALL COLOR(2,16,1,11,10,1,4,16,1,3,16 
11,4,16,1,5,16,1,6,16,1,7,16,1,8,16,1) 
350 CALL SPRITE(#25,132,5,9,200,#26,136,1 
4,9,200) 

360 DISPLAY AT(3,2):"1UP 0000" :: DISPLAY 
AT(5,2)S1ZE(4):"000" :: DISPLAY AT(2,2 
8):"3" 

370 IF MSC<)0 THEN DISPLAY AT(3,6) :MSC 
380 CALL SPRITE(#27,96,7,33,124,#28,108,1 
1,33,124) 

390 CALL SPRITE(#4,104,12,73,1,0,V4,43,10 
4,12,105,1,0,V3,#2,104,12,137,1,0,U2,#1 
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,104,12,169,249,0,V1) 

400 ! RE DE CHAUSSEE 

410 X=161 :: Y=17 

420 CALL SPRITECH8,120,14,X,Y):: CALL MAG 
NIFY(3) 

430 CALL COINC(#8,#1,8,C):: 1F C THEN 730 
440 CALL KEY(2,S,K):: IF K THEN IF D THEN 
Y=Y-16 :: CALL MCY):: CALL LOCATE(HS, 1 
52,Y):: CALL LOCATE(H#8,X,Y)ELSE Y=Y+16 :: 
CALL MCY):: CALL LOCATE(#8,152,Y):: CA 

LL LOCATE(#8,X,Y) 

450 CALL JOYST(2,YY,XX):: IF YY=4 THEN Y= 
Y+8 :: D=0 :: CALL MCY):: CALL SPRITE(# 
8,120,14,X,Y):: GOTO 430 

460 IF YY=-4 THEN Y=Y-8 :: D=1 :: CALL M 
Y):: CALL SPRITE(#8,128,14,X,Y):: GOTO 
430 
470 
ALL 


IF XX=4 THEN IF Y=233 THEN X=129 :: C 

LOCATE(HB8,X,Y):: SC=SC+20 :: GOSUB 
760 :: GOTO 500 

480 GOTO 430 

490 ! jere ETAGE 

500 CALL COINC(#8,#2,8,C):: 1F C THEN 730 
910 CALL KEY(2,S,K):: IF K THEN 1F D THEN 
Y=Y-ié6 CALL MCY):: CALL LOCATE(#8,1 
21,Y):: CALL LOCATE(#8,X,Y)ELSE Y=Y+1é6 :: 
CALL MCY):: CALL LOCATE(#8,121,Y):: CA 
LL LOCATE(#8,X,Y) 

920 CALL JOYST(2,YY,XX):: IF YY=4 THEN Y= 

Y+8 :: D=0 :: CALL M{Y):: CALL SPRITE(# 
8,120,14,X,Y):: GOTO 500 

930 IF YY=-4 THEN Y=Y-8 :: D=i CALL M( 

Y):: CALL SPRITE(#8,128,14,X,Y):: GOTO 
540 

540 1F XX=4 THEN IF Y=33 THEN X=97 CAL 
L LOCATECHS8,X,Y):: SC=SC+50 :: GOSUB 76 

0 :: GOTO 580 

550 1F XX=-4 THEN 1F Y=233 THEN X=ié6i :: 
CALL LOCATE(#8,X,Y):: GOTO 430 

560 GOTO 500 

570 ! 2eme ETAGE 

580 CALL COINC(#8,#3,8,C):: IF C THEN 730 
990 CALL KEY(2,S,K):: IF K THEN IF D THEN 
Y=Y-16 :: CALL M(Y):: CALL LOCATE(#8,8 
9,Y):: CALL LOCATE(#8,X,Y)ELSE Y=Y+16 :: 
CALL MCY):: CALL LOCATE(#8,89,Y):: CALL 
LOCATE(H8,X,Y) 

600 CALL JOYST(2,YY,XX):: IF YY=4 THEN Y= 

Y+8 :: D=0 :: CALL M{Y):: CALL SPRITE(# 
8,120,14,X,Y):: GOTO 580 
610 IF YY=-4 THEN Y=Y-8 


:3 Di :: CALL M 
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Y):: CALL SPRITE(#8,128,14,X,Y):: GOTO 

9580 

620 IF XX=4 THEN IF Y=137 THEN X=65 :: CA 

LL LOCATE(#8,X,Y):: SC=SC+70 :: GOSUB 7 

60 :: GOTO 660 

630 IF XX=-4 THEN IF Y=33 THEN X=129 :: C 

ALL LOCATE(#H8,X,Y):: GOTO 500 

640 GOTO 580 

650 ! 3eme etage 

660 CALL COINC(#8,#4,9,C):: IF C THEN 730 

670 CALL KEY(2,S,K):: IF K THEN IF D THEN 
Y=Y-16 :: CALL M(Y):: CALL LOCATE(H8,5 

7,Y):: CALL LOCATE(#8,X,Y)ELSE Y=Y+t16 :: 

CALL M(Y):: CALL LOCATE(#8,57,Y):: CALL 
LOCATE(H8,X,Y) 

680 CALL JOYST(2,YY,2X20:: IF YY=4 THEN Y= 

Y+8 :: D=0 :: CALL M{Y):: CALL SPRITE(# 

8,120,14,X,Y):: GOTO 660 

690 IF YY=-4 THEN Y=Y-8 :: D=i :: CALL M 

Y):: CALL SPRITE(#8,128,14,X,Y):: GOTO 

660 

700 1F XX=4 THEN IF Y=73 OR Y=193 OR Y=20 

9 THEN SC=SC+120 :: CALL SPRITE(H8,120, 
14,33,88):: GOSUB 800 :: GOSUB 760 :: GOT 

0 390 

710 IF XX=-4 THEN IF Y=137 THEN X=97 

ALL LOCATE(H8,X,Y):: GOTO 580 

720 GOTO 660 

730 DUR=30 :: FOR SON=500 TO 110 STEP -50 
:: DUR=DUR-2 :: CÂALL SOUND(DUR, SON, 0) : 

: CALL PATTERN(#8,124):: NEXT SON 

740 FOR 1=i TO 10 :: CALL SPRITE(#10,100, 
2,34,121,#11,92,2,34,139):: CALL COLOR( 
#10,7,#11,7)2:: CALL SOUND(-60,110,0):: NE 
XT 1! 

750 CALL DELSPRITE(H10,H#11,#8,#1,H2,H3,H4 
):: GOSUB 760 :: GOSUB 780 

760 DISPLAY AT(S,1)BEEP SIZE(8):SC :: IF 
SC)MSC THEN MSC=SC :: DISPLAY AT(3,6)SI 
2E(8) :MSC :: DISPLAY AT(2,27)S12E(3) :V1] 
770 RETURN 
780 VI=VI-I :: 


0 


DISPLAY AT(2,27)S12E(3) :VI 
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:: IF VI=0 THEN 790 ELSE 390 
790 FOR 1=1 TO 20 :: DISPLAY AT(17,10):"+x 
GAME OVER*" :: CALL SOUND(100,-4,0):: D 
ISPLAY AT(17,10):"" :: NEXT I :: CALL DEL 
SPRITE{ALL):: GOTO 150 
800 FOR U=i TO 2 :: CALL HCHAR(2,24,114): 
: CALL SOUND(300,220,0):: FOR X=220 TO 
1020 STEP 50 :: CALL SOUND(20,X,0):: NEXT 
X :: CALL HCHAR(2,24,32):: NEXT U :: 
ONUS=BONUS + 1 
810 IF BONUS=5 OR BONUS=10 OR BONUS=1I5 OR 
BONUS=20 THEN VI=VI+1 :: GOSUB 820 ELS 
E RETURN 
820 GOSUB 860 :: SC=SC+1000 :: FOR R=33 T 
0 iéi STEP 32 :: CALL LOCATE(#27,R,124, 
#28,R,124):: SON=SON-20 :: CALL SOUND(100 
:SON,0):: GOSUB 850 :: NEXT R :: GOSUB 
840 :: GOSUB 760 
830 VI=UI+1 :: DISPLAY AT(2,27):VI :: 
-14 :: V2=ié :: V3=-18 :: VU4=20 :: 
380 
840 CALL SOUND(-400,-6,0):: 
RETURN 
850 FOR P=1i TO 100 
860 CALL 
870 CALL 
880 CALL 
890 CALL 
900 CALL 
910 CALL 
920 CALL 
930 CALL 
940 CALL 
950 CALL 


VI= 
GOTO 


GOSUB 850 :: 


S: NEXT IP 5: 
SOUND(100,784,0) 
SOUND(100,880 ,0) 
SOUND(100,784,0) 
SOUND(100,622,0) 
SOUND(100,659,0) 
SOUND(100,523,0) 
SOUND( 100,440 ,0) 
SOUND(100,392,0) 
SOUND(100,311,0) 
SOUND(100,392,0) 
960 CALL SOUND(100,523,0) 
970 CALL SOUND(500,262,0) 
980 RETURN 

990 SUB M{Y) 

1000 IF Y<=17 THEN Y=17 :: 
1010 IF Y}=240 THEN Y=241i 
1020 SUBEND 


RETURN 


SUBEXIT 
:: SUBEXIT 
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Mini-Mémoire moins mini” 


De nombreux possesseurs du TI-99 
ont acheté la Mini-Mémoire mais, ne 
possédant pas d'extension, ils doi- 
vent se contenter des quatre Ko dis- 
ponibles. De plus, les.routines néces- 
saire à la gestion et l’assembleur 
ligne par ligne laissent peu de place 
pour la programmation. Cependant, 
on peut, avec un peu d'’astuce, aug- 
menter la capacité de la Mini-Mé- 
moire d'environ 1,5 Ko. 


Dans l’espace mémoire réservé à la 
ROM (mémoire à lecture seule) de la 
Mini-Mémoire, il existe une zone inu- 
tilisé, de l'adresse >697E à l'adresse 
>6F0E. Il suffit donc d'adresser un 
boîtier RAM (mémoire à lecture et 
écriture) dans cette zone. Pour sim- 
plifier le circuit de décodage 
d'adresse, la zone s'étend de >6A00 
à >6F00. 


Il faut noter que pour tout ce qui 
suit, il faudra intervenir sur les 
composants de la Mini-Mémoire; la 
garantie accordée par Texas Instru- 
ments cessera donc dès cet instant. 


Examinons maintenant l’intérieur du 
boîtier, comme d'habitude, on en- 
lève la vis qui se trouve au dos, puis 
on pousse les deux ergots et on 
ouvre. Le circuit imprimé apparaît 
comme sur la figure 1, où seuls les 
composants principaux sont repré- 
sentés. 


On s'aperçoit que pour des raisons 
de place, Texas a supperposé les 
deux boîtier RAM de 2 Ko chacun. 
Nous allons faire de même et placer 
un troisième boîtier (mémoire 2 Ko/8 
bits HMG 116 LP) au-dessus des 
deux autres. 


Voir figure 2 


Il faut donc souder les broches du 
boîtier que l’on rajoute aux broches 


Patte non soudée CE 


épiimmsptée 


Guy Fix 


Figure 1 


Le signal KONG sers pris 
sur 1s broche 12 du 74 LS 32 


Le +5v sers pris aux 1e 
broche 14 du 74 LS 32 


des circuits existants déjà sur la carte, 
en prenant soin. de placer le repère 
de la mémoire HMG 116 au-dessus 
du repère du boîtier déjà soudé. 


Voir figure 3 


Seule la patte CE n’est pas soudée: 
elle va au circuit de décodage 
d'adresse. Une résistance de 220 
ohms va de la patte CE au +5v, elle 
sera intégrée au circuit de décodage. 


Circuit de décodage 


Un signal ROMG, décodé à l’inté- 
rieur de la console, valide les adres- 


Figure 2 


Ls messe sers prise aux 
1a broche 7 du 74 LS 32 


ses >6000 à >7FFF. Ce signal utilisé 
conjointement à A3, A4, A5, A6 et 
A7 permet d'obtenir le tableau 1, et 
qui représente la configuration du 
bus d'adresses de >6A00 à 6EFF. 
La ligne AO est la ligne de poids fort. 


Ce montage peut être effectué sur un 
circuit imprimé ou sur une plaque 
d'essai. Les liaisons seront réalisées à 
l’aide de fil souple entre le boîtier 
Mini-Mémoire et le circuit de déco- 
dage. Le signal ROM G sera pris au 
niveau du 74 LS 32 implanté d'ori- 
gine sur la carte, ainsi que le +5v et 
la masse. Les liaisons des lignes 


Boitier ajouté 


Boitiers existants 


RRRRRRLARAL 
VU VIN VU UN UV 


LL RL, 
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signai ROMG 


LL LOL LOU LLLU LOT TL LL LOL, PLLLOLOLOLIIOOO TZ 
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Figure 3 Décodage 


A7 
A6 
À5 
ÂÀ4 
A3 
A2 
Al 
AO 
D7 
D6 
D5 


V7 


A3 


A4 


A9 
A6 


A7 


A5 
A6 


DO © ]J UT A Co ND 


HM 6116 LP 


pt put 
—- © 


N5, N6, N7 : 74 LS 02 (Quadrupie NOR) 
N1,N2,N3 : 74 LS OO (Quadrupie NAND) 


= 
N 


d'adresses seront effectuées sur le 
boîtier mémoire HM 6116 rajouté. 


Voir figure 4 Tableau 1 


Le circuit ainsi réalisé, on isolera le 
dessous, côté cuivre, avec un isolant 
et on placera le circuit imprimé dans 
le boîtier de la Mini-Mémoire. 


Nous pourrons maintenant écrire 
entre les adresses >6A00 et >6EFF. 


À partir des mêmes circuits, on peut 

très bien envisager d'étendre la mé- 

moire du TI, pour cela, il faut 

connaître le brochage du connecteur 

d'extension (99 Magazine numéro 5) 

et savoir que le TMS 9900 effectue 

la validation des adresses durant la — 
phase active du signal MEMEN. ä Décodé par ROM.G 


Figure 4 


IC 1 : 74 LS 02 
IC2 : 74 LS 00 
R1:2209 
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Ce programme en Basic TI permet 
l'édition de texte par page d'écran, 
sur 21 lignes et 28 colonnes. Les 
textes, conservés sur des cassettes 
magnétiques, sont récupérés par 
page ou partie de page. Un ensem- 
ble de fonctions permet une manipu- 
lation facile du texte. 


Tous les caractères du clavier stan- 
dard sont acceptés, à l'exception des 
touches de contrôle et de fonction 
réservées (codes ASCII de 1 à 31 et 
de 129 à 159. 


Des touches de fonctions diverses 
ont été prévues afin de rendre: cet 
éditeur plus souple. Ces touches 
sont : 


ENTER est utilisée pour la fin de 
l'entrée d’une ligne. Le curseur se 
positionne au début de la ligne sui- 
vante: 


FCTN-S déplacement 
vers la gauche: 


FCTN-D déplacement du curseur 
vers la droite: 


du curseur 


FCTN-X déplacement du curseur 
vers le bas: 


ECTN-E déplacement 
vers le haut: 


CTRL-P conserve et affiche la posi- 
tion du curseur pour une utilisation 
future avec CTRL-M (3,3 par dé- 
faut); 


CTRL-M conserve et affiche les limi- 
tes d’une portion de texte délimitée 
par la position sauvegardée du cur- 
seur (CTRL-P) et la position cou- 
rante du curseur; 


CTRL:T transfère la portion de texte 
délimitée par CTRL-M à la position 
actuelle du curseur. Le texte contenu 
entre les limites données est effacé 
puis affiché à la position courante du 
curseur; 


CTRL-B efface la portion de texte 
délimitée par CTRL-M: 

CTRL-C copie une partie du texte 
contenu dans une autre page sauve- 
gardée sur cassette. Les limites du 


texte à récupérer sont données par 
CTRL-M. 


du curseur 


Edipage 


Lojik 


CTRL:I insère un espace dans une 
ligne. Le dernier caractère de la ligne 
doit être un espace; 


CTRL-D provoque la destruction du 
caractère pointé par le curseur. Le 
texte de la ligne est reporté vers la 
gauche; 


CTRL-E efface une ligne. Les lignes 
placées sous la ligne courante sont 
déplacées vers le haut; 

CTRL-0O fait de la place pour l’inser- 
tion d’une ligne en repoussant les 
lignes suivantes vers le bas. La der- 
nière ligne doit être vide; 

CTRL-N est utilisée pour la numéro- 
tation des pages. Pressez CTRL-N et 
le curseur ira se positionner après le 
mot PAGE situé en haut de l'écran, 
puis entrez les deux chiffres identi- 
fiant votre page; 

CTRL-S effectue la sauvegarde de la 
page courante sur une cassette; 
CTRL-R charge le texte d’une page 
enregistrée sur une cassette. 


REM #33 66 EEE EX 340 CALL CHAR(129,"FFFFFFFFFFFFFFFF®) 
REM * EDIPAGE * 350 CALL CHAR(130 ,"007E7E7E7E/7E7E00") 
REM #36 R CALL CHAR(131,"00003C3C3C3C0000") 
REM * BASIC TI * 370 CALL CHAR(132,"0000001818000000") 
REM ###XXHXXERXRRRNRRREREEXX 380 CHAR(133,"0000000000000000") 
REM 390 CALL SCREEN(8) 
REM #X#X#XX#XKXXKXREEXEX 400 LA=1 
REM * INITIALISER  * CA=3 
REM * TABLE DU TEXTE* 420 CALL HCHAR(1,1,133,64) 
REM #36 EE 430 CALL VCHAR(1,1,133,48) 
DIM T$(21,28) 440 CALL VCHAR(1,31,133,48) 
PAG=1 450 L$=CHR$(132)8&CHR$ (131 )&CHR#&( 1 30 )&CHRS 
FOR 1=1 TO 21 (129)&"-EDIPAGE par Lojik-"&CHR$(129)&C 
FOR J=i TO 28 HR$(130)&CHR$ (1 31 )&CHR$( 1 32) 
T$(1,J)=" * 460 GOSUB 3550 
NEXT J 470 LA=2 
NEXT 1 480 CA=13 
REM X#X#KXHKEMERXERXXX 490 L$="Page "&STR$(PAG) 
REM * AFFICHAGE DU  * 500 GOSUB 3550 
REM *# CADRAÂGE ET DE * L=3 
REM * L’ENTETE * 920 C=3 
REM XX#X##XXHXXXXAXEEXEX PL=3 
CALL CLEAR 940 PC=3 

9950 FOR 1=i TO 100 
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NEXT 1 

CALL HCHAR(24,1,133,32) 

CALL HCHAR(L,C,129) 
LESILLLLEILLELLLIL. 
* ENTREE DES  * 
* CARACTERES ETx 
* DES FONCTIONS* 
LELLLELLSLELLLILLSS: 

CALL KEY(0,K,S) 

IF S=0 THEN 640 

IF (K<32)+(K)127)THEN 800 

IF S<)1 THEN 640 

CALL HCHAR(L,C,K) 

T$(L-2,C-2)=CHR$(K) 

C=C+1 

IF C<=30 THEN 640 

C=3 

L=L+1 

IF L<=23 THEN 640 

L$="FIN DE PAGE" 

GOSUB 3630 

L=23 

C=30 

GOTO 550 


CALL HCHAR(L,C,ASC(T#(L-2,C-2))) 


REM X#XHXHRM NME 
REM * DEPLACEMENT DU * 
REM * CURSEUR PAR LES+* 
REM * 4 FLECHES % 
REM XX#HHXXMHEHMNXAAEERXX 
IF K<)>8 THEN 920 

IF C<=3 THEN 900 
C=C-1 
GOTO 580 
C=30 
GOTO 580 

IF K<)9 THEN 980 

IF C>=30 THEN 960 
C=C+1 
GOTO 580 
C=3 
GOTO 580 

IF K<)>10 THEN 1040 

IF L)=23 THEN 1020 
L=L+1 

GOTO 580 

L=3 

GOTO 580 

IF K<>11 THEN 1150 

IF L<(=3 THEN 1080 
L=L-1 


1070 GOTO 580 

1080 L=23 

1090 GOTO 580 

1100 REM #X##XXXXXXYXXXEX 
1110 REM *FIN D’ENTREE * 
1120 REM +*D’UNE LIGNE * 
1130 REM *PAR ENTER * 
1140 REM #xXX##XXX#XXXEMEXX 
1150 IF K<)13 THEN 1250 
1160 IF L=23 THEN 580 
1170 L=L+i 

1180 C=3 

1190 GOTO 580 

1200 REM xXxXXXXXXXXXXXXX 
1210 REM *SELECTION DE * 
1220 REM *LA POSITION DUx 
1230 REM x*CURSEUR % 
1240 REM XXXXXXXXEXXEXAEE 
1250 IF K{)144 THEN 1370 
1260 PL=L 

1270 PC=C 


1280 L$=" COORDONNEES: "&STR#(PL-2)&"-"&ST 


R$(PC-2) 

1290 GOSUB 3630 

1300 GOTO 580 

1310 REM #X#XXXXKEXEEHXX 
1320 REM x*SELECTION DES+* 
1330 REM *LIMITES D’UNE* 
1340 REM *PORTION DE % 
1350 REM *L’ECRAN + 
1360 REM #X#XK##XXXXEXEXEX 
1370 IF K{)>141 THEN 1540 
1380 CL=L 

1390 CC=C 

1400 IF PL<=CL THEN 1430 
1410 CL=PL 

1420 PL=L 

1430 IF PC<=CC THEN 1460 
1440 CC=PC 

1450 PC=C 


1460 L$="LIMITE: "&STR$(PL-2)&"-"&STR$#(PC 
—2)&" À "&STR$(CL-2)&"-"&STRS(CC-2) 


1470 GOSUB 3430 

1480 GOTO 580 

1490 REM XX#X#XX#XXHXXXXUEX XXE 
1500 REM *TRANSFER D’UNE* 
1510 REM *PORTION DE * 
1520 REM *MEMOIRE * 
1530 REM XXXXXXHHXEEXEXXX 
1540 IF K<)>148 THEN 1900 


1550 IF ((L+(CL-PL))<=23)#((C+(CC-PC)) <=3 
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O)THEN 1590 REM #H#X#XAXHRENEERXX 
1560 L$="ESPACE INSUFFI SANT" IF K()132 THEN 2190 
1570 GOSUB 3630 FOR 1=C TO 29 

1580 GOTO 550 T$(L-2,1-2)=T$(L-2,1-1) 
1590 FOR I=PL TO CL CALL HCHAR(L,I,ASC(T#(L-2,1-2))) 
1600 CALL HCHAR(I,PC,32,CC-PC+1) NEXT 1 

1610 NEXT 1 CALL HCHAR(L,30,32) 
1620 12=0 T$(L-2,28)=" * 

1630 J2=0 GOTO 5802140 REM XX#x#X#XX#XXXXXXRX 
1640 FOR I=L TO L+(CL-PL) REM *EFFACER UNE + 
1650 FOR J=C TO C+(CC-PC) REM *LIGNE ET TASSER* 
1660 CALL HCHAR(I ,J,ASC(T$#(PL+12-2,PC+J2- REM *LES AUTRES * 
2))) REM XXHXXXHKHNKERXEXREIX 
1670 J2=J2+1 IF K{)133 THEN 2360 
1680 NEXT J i IF L=23 THEN 2270 

1690 J2=0 FOR I=L TO 22 

1700 I2=12+1 FOR J=3 TO 30 

1710 NEXT 1 T$(1-2,J-2)=T$(1-1,J-2) 
1720 FOR I=PL TO CL CALL HCHAR(I,J,ASC(T$#(1-2,J-2))) 
1730 FOR J=PC TO CC NEXT J 

1740 CALL GCHAR(I,J,CH) NEXT 1 

1750 T$(1-2,J-2)=CHR$(CH) CALL HCHAR(23,3,32,28) 
1760 NEXT J FOR 1=1 TO 28 

1770 NEXT 1 T$(21,1)=" * 

1780 FOR I=L TO L+(CL-PL) NEXT 1 

1790 FOR J=C TO C+(CC-PC) GOTO 580 

1800 CALL GCHAR(I,J,CH) REM ####R HR RRX 
1810 T$(1-2,J-2)=CHR$(CH) REM *INSERTION DE * 
1820 NEXT J REM *LIGNE 5 
1830 NEXT 1 REM #XX#XXXMEXRREREXX 
1840 GOTO 580 IF K()143 THEN 2600 
1850 REM *XX#XX##XXKXEEEXEX FOR 1=i1 TO 28 

1860 REM *INSERTION D’UNx IF T$(21,1)=" * THEN 2420 
1870 REM +*BLANC SUR UNE * L$="ESPACE INSUFF]I SANT * 
1880 REM *LIGNE # GOSUB 3630 

1890 REM *X##XXX#XXXXERREEEXXE GOTO 550 

1900 IF K<{)137 THEN 2060 NEXT 1 

1910 1F T$(L-2,28)=" * THEN 1950 1F L=23 THEN 580 

1920 L$="DEBORDEMENT DE LIGNE" FOR 1=23 TO L+1 STEP -1 
1930 GOSUB 3630 FOR J=3 TO 30 

1940 GOTO 550 T$(1-2,J-2)=T$(1-3,J-2) 
1950 FOR 1=30 TO C+i STEP -1 CALL HCHAR(I,J,ASC(T#(1-2,J-2))) 
1960 T$(L-2,1-2)=T$(L-2,1-3) NEXT J 

1970 CALL HCHAR(L,I,ASC(T$#(L-2,1-2))) NEXT 1 

1980 NEXT I CALL HCHAR(L,3,32,28) 
1990 CALL HCHAR(L,C,32) FOR 1=1 TO 28 

2000 *SGN CALL GOTO LOG & ! TS(L-2,12=° ° 

2010 GOTO 580 NEXT 1 

2020 REM #X#X#X##X#XXKERHEX GOTO 580 

2030 REM xDESTRUCTION # REM HXXXHEXXXEHEREREX 
2040 REM *D’UN CARACTERE* REM “MISE À BLANC * 
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REM *D’UNE PORTION * 3070 OPEN #1:"CSi",INTERNAL:, INPUT ,FIXED 
REM *DE TEXTE x 192 

REM HHXXHXENEMAERNXX 3080 INPUT #1:1P 

IF K()>130 THEN 2710 3090 PRINT "PAGE À RECUPERER-} ";1P 
FOR I1=PL TO CL 3100 PRINT "CONFIRMATION: O/N?" 

FOR J=PC TO CC 3110 CALL KEY(0,K,5S) 

T$(1-2,J-2)=" * 3120 IF S=0 THEN 3110 

NEXT J 3130 IF K<)79 THEN 3270 

CALL HCHAR(I,PC,32,CC-PC+1) 3140 PAG=IP 

NEXT 1 3150 FOR 13=1 TO 19 STEP 6 

GOTO 580 3160 INPUT #i:E$ 

REM XHXHXXHAKEREEARERX 3170 14=1 

REM *FIN DU PROGRAM* 3180 FOR 1=13 TO 13+5 

REM X#H#XHXXHNEEANRENRX 3190 IF 1>21 THEN 3270 

IF K{)>145 THEN 2790 3200 FOR J=i TO 28 

END 3210 IF CI)=PL-2)#(J)=PC-2)#(I1<=CL-2) #(J< 
REM #X#X###XHXEEEXREXRX =CC-2)THEN 3220 ELSE 3230 

REM *SAUVEGARDE + 3220 T$(I1,J)=SEG$(ES,14,1) 

REM *D'UNE PAGE x 3230 14=14+#1 

REM *D’ECRAN SUR  * 3240 NEXT J 

REM *SUR CASSETTE * 3250 NEXT I! 

REM HXX#HHHEHMEEXRNREX 3260 NEXT 13 


IF K<>147 THEN 3000 3270 CLOSE #i 
CALL CLEAR 3280 FOR I=i TO 21 
OPEN #1:"CS1",INTERNAL,OUTPUT,FIXED| 3290 FOR J=i TO 28 


3300 CALL HCHAR(I1+2,J+2,ASC(T$(CI1,9J))) 
PRINT #1 :PAG 3310 NEXT J 
FOR 13=1 TO 19 STEP é 3320 NEXT I! 
E$="" 3330 GOTO 330 
FOR 1=13 TO 13+5 3340 REM ##X#XXXXHXRRRXEX 
IF 1221 THEN 2910 3350 REM xNUMEROTATION * 
FOR J=1 TO 28 3360 REM *DE PAGE * 
E$=ES$&T$(I ,J) 3370 REM *#*X##XXHXEXXXEXX 
NEXT J 3380 IF K<)142 THEN 640 
NEXT 1 3390 R$="" 
PRINT #1:E$ 3400 CALL HCHAR(2,18,32,2) 
NEXT 13 3410 FOR. 1=18 TO 19 
CLOSE #1 3420 CALL HCHAR(2,1,129) 
GOTO 220 3430 CALL KEY(0,K,S) 
REM #XHX##HXXEXRERNXENRX 3440 IF S<)>i THEN 3430 
REM *RECUPERATION  * 3450 IF (K{48)+(K257)THEN 3430 
REM *D’UNE PAGE * 3460 R$=R$S&CHRS(K) 
REM +*D’ECRAN * 3470 CALL HCHAR(2,1,K) 
REM #XHHXXXEHHRERREXRX 3480 NEXT 1 
IF K=131 THEN 3060 3490 PAG=VAL(RS) 
IF K()146 THEN 3380 3500 GOTO 580 
PL=3 3510 REM #X##X#X#X#HHEXEEEX 
PC=3 3520 REM *ROUTINE Li 
CL=23 3530 REM *D’AFFICHAGE  * 
CC=30 3540 REM XX#XKXXKXXKHAREXX 
CALL CLEAR 3550 1=1 TO LEN(L#) 
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3560 CALL HCHAR(LA,CÂ+I-1,ASC(SEGS(LS,1I,1 


))) 

3570 NEXT 1] 

3580 RETURN 

3590 REM XXXXXXXXKKEXEXX 


3600 REM *ROUTINE DES * 
3610 REM *MESSAGES * 


En utilisant les routines graphiques 
publiées dans les numéros 4 et 5 de 
799 Magazine”, nous nous sommes 
rendu compte d’une importante la- 
cune du système : il n'était pas possi- 
ble d'afficher simplement du texte 
dans la page graphique. Nous nous 
devions donc de remédier à cet état 
de fait, en vous proposant une nou- 
velle routine en assembleur, baptisée 
LETTRE et propre à effectuer ce tra- 
vail. 


Utilisation de la routine 


La méthode est la même que pour 
les routines précédentes, à savoir : 


passage des paramètres requis par le 
programme en assembleur au moyen 
de CALL LOAD: 

appel de la routine par le sous-pro- 
gramme CALL LINK. 


Le passage des paramètres se fait de 
la manière suivante : 


CALL LOAD (-—24564. TYPEL. 
CODEL., LIGNEL. COLONL. 
CONL, COFFEL ) 


TYPEL, pour TYPE de Lettre. déter- 
mine la police de caractères utilisée. 
Si l'argument est égal à zéro, le jeu 
de caractère ‘classique” sera em- 
ployvé: avec un argument différent de 
zéro, la routine récupérera les des- 
cripteurs utilisés pour les caractères 
de la mire d'introduction (les lettres 
sont dessinées dans une matrice 8x6 
au lieu de 7x5). 


Si votre programme Basic est impor- 
tant, il faudra utiliser les caractères de 
la mire avec prudence: en effet, la 
table des descripteurs employée pour 
cette police particulière n'étant pas 
protégée. elle peut très bien être 
écrasée” par un programme enva- 
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3620 
3630 
3640 
3650 
3660 
3670 


LÂ=24 
CA=3 


RETURN 


REM XXX#XXXXXXHEREXEX 
CALL HCHAR(24,1,133,32) 


GOSUB 3550 


Caractères ASCII 
dans la page graphique 


Jean-Luc Bazanegue 


hissant. Dans le cas où cette mésa- 
venture vous arriverait, cela ne 
"planterait” pas le programme; vous 
pourriez tout au plus obtenir d’étran- 
ges caractères. 


CODEL, pour CODE de la Lettre, 
autorise la transmission du code de 
caractère. Les arguments valides va- 
rient en fonction de TYPEL : 


si TYPEL est égal à 0, CODEL doit 
être supérieur à 32 et inférieur à 
160. Le fait de pouvoir passer des 
arguments supérieurs à 127 autorise 
l'affichage de caractères préalable- 
ment définis par l'instruction CALL 
CHAR: 


si TYPEL est différent de zéro, l'ar- 
gument doit être supérieur à 32 et 
inférieur à 91. 


LIGNEL et COLONL indiquent, 
bien sûr, où sera affiché le caractère. 
Les coordonnées sont les mêmes 
qu'en Basic (1 à 24 pour LIGNEL et 
1 à 32 pour COLONL). 


CONL et COFFL déterminent les 
couleurs des points on” et ‘’off” du 
caractère concerné. Puisque nous ap- 
pelons une routine écrite en assem- 
bleur, l'argument doit êre le code de 
la couleur en Basic, moins un (0 à 


15). 


La routine est protégée contre les ar- 
guments invalides qui pourraient per- 
turber son fonctionnement: si elle 
rencontre une valeur incompatible 
avec les indications fournies  ci- 
dessus, rien ne se passe et la main 
est redonnée au programme Basic. 


Concrètement, pour afficher un ‘’A” 
(8 x 6) à la ligne 5, colonne 10, et 
en noir sur blanc, il faut utiliser : 


CALL LOAD (-—24564, 1, 65, 5, 10, 


1, 45) 

CALL LINK ( "LETTRE” ) 

Lorsque vous transmettez des argu- 
ments à la routine LETTRE, ils sont 
pris par défaut jusqu’à ce que d’au- 
tres valeurs soient spécifiées; il n’est 
donc pas toujours nécessaire de 
communiquer tous les arguments. 
Par exemple, si, après avoir choisi un 
type de lettre, vous souhaitez conser- 
ver le même, le premier argument 
peut être le code du caractère. Dans 
ce cas, il faut changer l'adresse du 
premier ’poke” qui devient —-245683. 
De même, si vous ne désirez pas 
changer les couleurs, il est inutile de 
les transmettre à nouveau. 


Pour afficher un mot ou une phrase 
dans la page graphique, un petit 
sous-programme, semblable à ceux 
que l'on utilise en Basic TI pour si- 
muler le DISPLAY AT du Basic 
Etendu, peut s'avérer très utile. Ce 
qui suit pourrait faire l'affaire (ne pas 
oublier de charger les routines gra- 
phiques !). 

100 T$ = Organigramme” 

110 TYPEL = 0 

120 LIGNEL = 3 

130 COLONL = 5 

140 CONL = 7 

150 COFFL = 12 

160 GOSUB 1000 


1000 PC = 1 

1010 FOR I = COLONL TO CO- 
LONL + LEN(T$) — 1 

1020 CALL LOAD (-—-24564, 
TYPEL, ASC (SEG$ (T$, PC, 1)), 
LIGNEL, I, CONL, COFFL)1030 
CALL LINK ( "LETTRE" ) 

1040 PC = PC +1 

1050 NEXT I 

1060 CALL LINK ( "IMAGE" ) 

1070 RETURN 
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Avant de passer aux explications 
concernant le fonctionnement de la 
routine en assembleur, nous devons 
signaler à nos lecteurs avant fait l’ac- 
quisition de la disquette ‘Routines 
graphiques” qu'ils sont déjà en pos- 
session de ce petit supplément. 


Fonctionnement de la 
routine 


Comme pour la routine LIGNE du 
précédent numéro, seul le listing de 
la nouvelle routine apparaît dans ces 
pages. Pour avoir l'intégralité du pro- 
gramme, vous pouvez vous reporter 
aux numéro 4 et 5 de ‘99 Maga- 
zine”. Cette fois, nous avons volon- 
tairement laissé les numéros de lignes 
issus de l'assemblage, afin de faciliter 
les explications qui vont suivre. 


0279. Il s’agit du point d'entrée dans 
la routine. MOVB (@ CODEL,R14 
déplace une copie du contenu de 
l'octet situé à l'adresse >A00D 
(—24563) vers l’octet de poids fort 
du registre 14 (voir l’article ‘Les 
modes d’adressage en Assembleur”, 
publié dans le numéro 3). À ce 
stade, le registre 14 contient donc le 
code du caractère que l’on désire af- 
ficher plus, dans l’octet de poids fai- 
ble, une valeur indéterminée. 


0280. L'instruction SRL exécute un 
décalage logique vers la droite. Dans 
le cas qui nous intéresse, il s’agit de 
décaler le registre 14 de huit posi- 
tions pour que le code de notre ca- 
ractère soit dans l’octet de poids fai- 
ble, et aussi de nous débarrasser de 
ce qui encombre l’octet de poids fai- 
ble. Si l’on admet que le code trans- 
mis est 65 nous avons, dans le regis- 
tre 14: 


01000001 XXXXXXXX (les ”X” re- 
présentent la valeur indéterminée 
dont nous parlions précédemment). 


Après l'exécution de la ligne 0280, le 
registre 14 contient : 


00000000 01000001. 


En effet, l'instruction SRL met à 0 
tous les bits qui prennent la place 
des bits décalés, contrairement à 
l'instruction SRA (décalage arithméti- 
que vers la droite) qui remplace tous 
les bits décalés par le bit de signe. 
Nous pouvons noter que pour des 
valeurs inférieures à 128 (dans l’octet 
de poids fort de R14), SRA R14,8 et 
SRL R14,8 auraient donné le même 
résultat puisque, dans ce cas, le bit 
de signe est à zéro. Les bits décalés 
vers la droite en dehors du registre 
sont perdus, sauf le dernier bit éjecté 
pendant l'opération car il tombe” 
dans le carry” (retenue) du registre 
d'état. 


0281. Le microprocesseur réalise ici 
une opération très simple : la compa- 


raison immédiate du registre 14 avec 
la valeur 32. En fonction du résultat 
de cette comparaison, les bits du re- 
gistre d'état ‘’égal”, ‘logiquement su- 
périeur” et ‘’arithmétiquement supé- 
rieur” sont mis à 1 ou à O (1 = vrai, 
O = faux). 


0282. L'instruction JH (saut si logi- 
quement supérieur) nous permet 
d'utiliser le résultat de la comparai- 
son précédente et ainsi intervenir sur 
le déroulement du programme. Nous 
trouvoris ici une des différences fon- 
damentales entre le Basic et l'Assem- 
bleur : 

en Basic, le test et le branchement 
en fonction du résultat sont effectués 
simultanément (IF X = Y THEN 
100, par exemple); en Assembleur, 
un test permettant un détournement 
utilise toujours le résultat de la der- 
nière opération- effectuée par le mi- 
croprocesseur. 

Dans notre programme, si le bit 
d'état ‘logiquement supérieur” est à 
1 et si le bit ’égal” est à zéro, le pro- 
gramme est dirigé vers l'étiquette LO 
puisque le code du caractère est su- 
périeur à 32. Dans le cas contraire, le 
contrôle est passé à la ligne suivante. 


0283. Si le code du caractère pro- 
posé est inférieur à 33, nous avons 
affaire à une valeur qui pourrait per- 
turber le fonctionnement de la rou- 
tine; le traitement doit donc être in- 
terrompu. Le but de la ligne 0283 
est de diriger le programme vers la 
routine baptisée RETOUR (voir nu- 
méro 4) qui redonne la main au pro- 
gramme Basic. 


0284. Nous réalisons ici une opéra- 
tion semblable à celle de la ligne 
0279 mais le but est différent. Lors- 
que l'instruction MOVB (ou MOV 
pour un mot de seize bits) est em- 
ployée, la valeur déplacée est 
comparée à zéro et le contenu du re- 
gistre d'état est modifié en consé- 
quence (mêmes bits que pour l'ins- 
truction CI). Ceci va nous permettre 
de déterminer le type de caractère 
choisi. 


0285. L'instruction JEQ (saut si 
égal) provoque un branchement à 
l'adresse symbolisée par l'étiquette 
L1 si le bit d'état ‘’égal” est à 1, 
donc si le contenu de l'adresse 
TYPEL contenait une valeur nulle. 
Dans ce cas, nous savons que le pro- 
gramme Basic demande un caractère 
standard. Si le résultat du test est né- 
gatif, nous passons à la ligne sui- 
vante. 


0286. L'adresse 2304, en mémoire 
vive vidéo, contient le premier des 
huit octets définissant le caractère 
espace” inscrit dans une matrice 8 * 
7. Nous stockons cette adresse dans 
le registre 13 pour une utilisation ul- 
térieure. 


0287. Cette ligne, comme la précé- 
dente, est utilisée uniquement dans 
le cas où le programme Basic de- 
mande un caractère 8 x 7. Dans ce 
mode, la définition des caractères 
s'arrête à la lettre ‘’Z” (code 90); 
nous devons donc comparer le 


contenu du registre 14 (qui contient 
le code du caractère demandé) avec 
la valeur 91. 


0288. Si la valeur est inférieure à 
91, les bits d'état ‘’égal” et ‘’logique- 
ment supérieur” sont à 0 et l’instruc- 
tion JL (saut si logiquement inférieur) 
dirige le programme vers l'étiquette 
"L2”. L'instruction JL ne peut pas 
être remplacée par JLT (saut si arith- 
métiquement inférieur) car 128, par 
exemple, devient inférieur à 91 puis- 
que le bit de signe est à 1. 


0289. Si le registre 14 contient une 
valeur supérieure à 90, la routine re- 
donne la main au Basic. L’instruction 
JMP provoque un saut inconditionnel 
à l'adresse indiquée explicitement, ou 
sous une forme symbolique. 


0290. La routine exécute cette ligne 
uniquement si un caractère standard 
est requis; le tvpe d'opération réalisé 
est semblable à celui de la ligne 
0286, mais nous plaçons cette fois 
dans le registre 13 l'adresse 1024, 
qui correspond au premier des huit 
octets définissant le caractère ‘es- 
pace” en 7*5 points. 


0291. Nous faisons une comparai- 
son entre le registre 14 et la valeur 
159 qui est le dernier code possible à 
partir du Basic. Le test, contraire- 
ment à celui de la ligne 0286, est ef- 
fectué sur la valeur maximale admise 
au lieu de la valeur suivant la valeur 
maximale; ceci va nous permettre de 
gagner une instruction. 


0292. Puisque nous avons comparé 
le registre 14 avec la valeur 159, 
nous pouvons utiliser l'instruction JH 
(saut si logiquement supérieur) pour 
redonner la main au Basic si le code 
transmis est incorrect. Si nous avions 
utilisé 160 pour le test, nous aurions 
dû employer : 

JL L2 

JMP L3 


au lieu de : 
JH:LS3;: 


0293. Nous retrouvons ici un seg- 
ment commun aux deux jeux de ca- 
ractères. L'instruction A1 (Addition 
Immédiate) ajoute au registre 
concerné la valeur qui se trouve en 
mémoire immédiatement après l'ins- 
truction. Dans notre routine, cette va- 
leur est négative: cela revient à faire 
une ‘soustraction immédiate”. Après 
l'exécution de cette instruction, le re- 
gistre 14 (dans lequel se trouve tou- 
jours le code de notre caractère) 
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contient le code moins 32, soit 33 
pour un A”, 34 pour un ”’B”, etc... 


0294. Nous avons, dans le registre 
13, l'adresse du premier des huit 
octets définissant le caractère 32, qui 
correspond maintenant à la valeur 0; 
il faut maintenant calculer l'adresse 
du premier octet définissant le carac- 
tère qui nous intéresse. Pour cela, 
nous utiliserons la formule : 


adresse de base + ( code du carac- 
tère — 32 ) « 8. 

L'adresse de base se trouve dans le 
registre 13 et le code du caractère 
moins 32 est dans le registre 14. 
Pour la multiplication par huit, nous 
utilisons l'instruction SLA (décalage 
arithmétique de n position vers la 
gauche). En effet, chaque fois qu’un 
registre est décalé d’une position vers 
la gauche, son contenu est multiplié 
par deux à condition que la valeur 
de départ soit inférieure à 32767. 
Ainsi, en décalant le registre de 3 po- 
sitions, son contenu est multiplié par 
8 (2x2*x2 ou 23). Il est possible de 
faire des divisions par un multiple de 
2 en utilisant l'instruction SRL. 


0295. Le registre 14 contient main- 
tenant le décalage par rapport à 
l'adresse de base. L'instruction À 
(Addition) ajoute cette valeur au re- 
gistre 13, qui devient l'adresse réelle 
du premier octet dont nous aurons 
besoin. 


0296 à 0299. Le numéro de co- 
lonne poké à l'adresse —24561 est 
reporté dans l’octet de poids-fort du 
registre 14. Le traitement est exacte- 
ment le même que celui utilisé aux 
lignes 0279 à 0282 pour le code de 
la lettre. Si le numéro de colonne est 
supérieur à 32, il y a retour au Basic. 


0300. Le registre 14 est décrémenté 
de 1 de façon à obtenir une valeur 
comprise entre 0 et 31 inclus. 


0301. Lorsque l’on utilise l’instruc- 
tion DEC, le bit d'état ’carry” est 
toujours mis à 1 sauf lorsque l’on 
passe de O0 à —1. Si le programme 
Basic transmet zéro comme numéro 
de ligne, le fait de décrémenter le re- 
gistre 14 va faire passer son contenu 
de 0 à —1, donc le bit ‘’carry” sera à 
O0. Dans ce cas, l'instruction JNC 
(saut si pas de retenue) oriente la 
routine vers le programme Basic. 


0302. La multiplication par huit 
nous fournit le décalage par rapport 
à l'adresse de base du tampon ”TI- 
MAGE”, et cela en supposant que la 
ligne 1 soit choisie. Je m'explique: 
les octets constituant la table d'écran 


DEF  EFFT,EFFP,EFFC 
DEF AXES, POINT, IMAGE 
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en mode Bit Map sont disposés de 
cette façon : 


octet 7? 


Donc, pour la colonne 3 (qui devient 
la colonne 2 après l'exécution de 
l'instruction DEC R14) nous obte- 
nons dans le registre 14: 2 x 8 soit 
16 ou >10 en hexadécimal, ce qui 
correspond à la valeur qu'il faudra 
ajouter à l'adresse de base du tam- 
pon TIMAGE pour la ligne 1. 


0303 à 0308. Traitement en tous 
points identique à celui du numéro 
de colonne, mis à part le premier test 
de validité, qui est effectué par rap- 
port à 24 au lieu de 32. 


0309. L'instruction MOV R12,R12 
met le bit d'état ‘’egal” à 1 si la va- 
leur contenue par R12 est nulle. 


0310. Si le bit d'état est à 1, nous 
savons que le programme Basic a 
demandé l'affichage d’un caractère 
sur la première ligne (le registre 12 
est décrémenté de 1 à la ligne 0307; 
ainsi, pour la ligne 1, le registre 12 
contient maintenant 0). Dans ce cas, 
l'adresse à modifier dans le tampon 
TIMAGE se trouve déjà dans le regis- 
tre 14 et nous pouvons passer les 
trois lignes suivantes, réservées aux 
numéros de lignes supérieurs à 1. 


0311 à 0313. En mode Bit Map, 
chaque ligne sur l’écran utilise 8 x 32 
— 256 octets. Si nous ajoutons 256 
multiplié par le numéro de ligne 
moins 1 (registre 12) au registre 14, 
nous obtenons l'adresse du premier 
des huit octets à modifier dans le 
tampon TIMAGE. Au lieu de faire 
une multiplication, nous ajoutons 
256 au registre 14, le registre 12 est 
ensuite décrémenté et l'opération est 
recommencée jusqu'à ce que le re- 
gistre 12 soit égal à zéro. 


0003 
0004 


0314. À partir de cette ligne, nous 
nous occupons des couleurs de notre 
caractère. Ici, il n’y a pas de contrôle 
de validité puisque nous ne conser- 
verons que les quatre bits de poids 
faible des valeurs pokées. 


Après l'exécution de la ligne 0314, la 
couleur des points ’off” est située 
dans l’octet de poids fort du registre 
9. Pour la couleur 15 (blanc), R9 est 
égal à 00001111 00000000. 


0315. Mise à zéro de tous les bits du 
registre 10. 


0316. La couleur des points on” 
est reportée dans l’octet de poids fort 
du registre 10. Pour la couleur 1 
(noir), R9 est égal à 00000001 
00000000. 


0317. Le contenu du registre 10 est 
décalé de 12 positions vers la droite 
mais il s’agit d'un décalage circulaire. 
Les bits qui sortent du registre ne 
sont pas perdus puisqu'ils sont repor- 
tés dans le bit de poids fort. Le regis- 
tre 9 contient maintenant 00010000 
00000000. 


0318. SOC R10,R9 met à 1 les bits 
de R9 dont les positions correspon- 
dent aux bits à 1 du registre 10. 


Avant exécution : 


R10 = 00001111 00000000 
R9 = 00010000 00000000. 


Après exécution : 
R9 = 00011111 00000000. 


La couleur des points on” est dans 
le quartet de gauche de l’octet de 
poids fort du registre 9 (0001 = 1), 
alors que la couleur des points ”’off” 
se trouve dans le quartet de droite 
du même octet (1111 = 15). 


0319. Chargement de l'adresse de 
base du tampon TCOUL dans le re- 
gistre O. 


0320. Puisque la table des couleurs 
est structurée de la même manière 
que la table d'écran, nous ajoutons 
au registre O0 la même valeur de dé- 
calage que pour cette dernière, et 
nous obtenons l'adresse du premier 
des huit octets à modifier dans le 
tampon TCOUL. 


Le reste de la routine consiste en la 
modification des tampons TCOUL et 
TIMAGE en fonction des paramètres 
établis précédemment. La méthode 
employée étant la même que pour 
les routines du numéro 4 de 99”, je 
pense que nous pouvons interrompre 
ces explications relativement longues 
pour une routine exécutée en quel- 
ques millièmes de secondes ! Æ 


DEF  LIGNE,LETTRE 
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0005 A000 
0006 A000 
0007 A002 
0008 A004 
0009 A00é 
0010 A008 
0011 AD0A 
0012 A00C 
0013 A00D 
0014 A00E 
0015 A00F 
0016 A010 
0017 AOi1 
0018 A012 
0019 A014 
0020 ADié 
0278 
0279 FADO 
FAD2 
0280 FAD4 
0281 FADé 
FAD8 
0282 FADA 
0283 FADC 
FADE 
0284 FÂAEO 
FAE2 
0285 FÂAE4 
0286 FÂE6 
FÂES 
0287 FAEA 
FAEC 
0288 FAEE 
0289 FAF0O 
0290 FAF2 
FAF4 
0291 FÂFé 
FAF8 
0292 FAFA 
0293 FAFC 
FAFE 
0294 FB00 
0295 FB02 
0296 FB04 
FB0é6 
0297 FB08 
0298 FB0Â 
FBOC 
0299 FB0E 
0300 FB10 
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WOK M MK M % 4% K W À % *% 


O9 000000 00000000 


aCODEL ,R14 


R14,8 
R14,32 


LO 
S3RETOUR 


STYPEL,RIS 


Li 
R13,2304 


R14,91 


L2 
L3 
R13,1024 


R14,159 


L3 
R14,-32 


R14,3 
R14,R13 


aCOLONL ,R14 


R14,8 
R14,32 


L3 


L3 
R14,3 
3LIGNEL ,R12 


R12,8 
R12,24 


L3 
R12 

L3 
R12,R12 
L4 
R14,256 


RI2 
LS 
aCOFFL ,R9 


R10 
a3CONL ,R10 


R10,12 
R10 ,R9 
RO ,TCOUL 


R14,R0 
R1,8 


R9 , *RO+ 
R1 
Lé 
RO ,TIMAGE 


R14 ,R0 
R1,8 


R13 
R13,9)8C02 


R13 

R13,2>8C02 
38800 , *RO+ 
RI 


L7 
L3 
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Ce programme, écrit en Basic TI, 
n'a pas la prétention de remplacer 
un instrument de musique; son but 
est essentiellement éducatif et 
concerne l'apprentissage du solfège. 
Cependant, il pourra quand même 
servir à reconnaître un air à partir 
d'une feuille de musique. 


Le clavier est organisé sur le même 
principe qu’un piano, avec ses tou- 
ches blanches et noires. 
Tous les caractères alphanumériques 
et les chiffres O à 9 sont susceptibles 
de représenter une note. 


La première et la troisième ligne du 
clavier représentent exclusivement 
des dièses et des bémols, alors que 
la deuxième et la quatrième ligne 
sont liées aux notes régulières. La 
touche Q correspond au SI le plus 
grave, et les notes se termine avec la 
touche M qui représente le RE le 
plus aigu. 


Les fonctions 


/ (barre oblique) 


Changement alternatif du mode note 
au mode accord. Lorsque vous pres- 
sez cette touche, le programme se 
met dans le mode opposé à celui qui 
est affiché. Vous êtes en mode ac- 
cord quand apparaît, à la suite de 
ACCORD=, le caractère 1, et vous 
êtes en mode note quand apparaît 
un 0. 


En mode note, vous pouvez jouer 
des notes simples qui apparaîtront 
sur votre écran les unes après les 
autres. 


En mode accord, vous devez presser 
trois touches consécutives; chacune 
des notes s’affichera sur la même co- 
lonne et, lors de la pression sur la 
troisième touche, vous entendrez 
l'accord. Durant l'entrée des trois 
notes, il est impossible d'exécuter 
d’autres fonctions. 


CTRL-T 


Changement du temps de base. 
Pressez CTRL-T et le temps de base 
sera affiché, puis entrez un chiffre de 
1 à 9 pour donner le nouveau 


temps. Le calcul du temps de base 
est effectué de la manière suivante : 


temps (en millisecondes) = chiffre * 
100. 


. (point) 


Changement alternatif entre le mode 
note pointée et note standard. Lors- 
que vous pressez cette touche, le 
programme se met dans le mode op- 
posé à celui qui est affiché. Vous êtes 
en mode note pointée quand appa- 
raît, à la suite de POINTEE=., le ca- 
ractère . (point), alors que vous êtes 
en mode note standard dans le cas 
contraire. \ 


CTRL-A, B, C, Det E 


Les touches de contrôle À à E déter- 
minent les types de notes, ainsi que 
le temps relatif au temps de base : 


e À = double croche = 1/4 de 
temps; 
B = croche = 1/2 temps; 
C = noire = 1 temps: 
D = blanche = 2 temps: 
E = ronde = 4 temps. 


Musik 


Michel Legault 


Sélectionnez la note désirée et elle 
sera affichée à la suite de NOTE=. 
Ceci sera utilisé pour les prochaines 
notes jouées. 


CTRL-S 

Vous pouvez insérer un silence entre 
les notes. Pressez CTRL-S et un si- 
lence d’un temps sera enregistré, 
avec l'affichage d’un symbole sur la 
troisième ligne de la portée. 


SHIFT — et + 

Permet de contrôler le volume : 

e + augmente le volume pour les 
notes suivantes; 

e — diminue le volume pour les 
notes suivantes. 

Le volume est affiché à la suite de 

VOLUME= et est représenté par un 

nombre de 1 à 30. Plus le nombre 

est grand et plus le volume est faible. 


ENTER 


Lorsque vous avez terminé une por- 
tée, appuvez sur ENTER. le pro- 
gramme jouera la musique enregis- 
trée jusque là et initialisera une 
nouvelle portée. 


CTRL-M 

Permet de jouer la musique de la 
portée courante (seulement les notes 
affichées sur la portée). 

CTRL-S 


Efface la portée courante. 


FCTN-B 


Reprise de l'enregistrement musical 
depuis le début. & 


REM 3626262626 DE DE DE DE HE DE DE DEEE EN 
REM * MUSIK # 
REM 3326262626 DE DE DE DE JDE DE EE 
REM * BASIC TI * 
REM HER ER ERREX 
REM 
CALL 
CALL 
CALL 
CALL 


240 DIM L(43),F(43) ,D(5),E(5,100) 

250 FOR 1=1 TO 43 

260 READ F{1),L(1) 

270 NEXT 1 

280 DATA 554,-13,233,-22,0,0,277,-20,311, 
-19,0,0,370,-17,416,-16,466,-15,0,0,0,0 
CLEAR ,0,0 

COLOR(14,5,16) 290 DATA 0,0,0,0,0,0,0,0,0,0,622,-12,988, 
COLOR(15,5,16) 7,784,9,740,-10,294,19,831,-9,932,-8,0, 
COLOR(16,5,16) 0 

COLOR(13,2,15) 300 DATA 494,14,1109,-6,1245,-5,0,0,1175, 
COLOR(5,2,12) 5,1047,6,523,13,587,12,247,21,330,18,0, 
COLOR(6,2,12) 0 

COLOR(7,2,12) 310 DATA 349,17,440,15,880,8,262,20,698,1 
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0,392,16,659,11 FOR J=1 TO 2 

320 READ D(1),D(2),D(3),D(4) ,D(5) FOR 1=1 TO LEN(S$(J)) 

330 DATA .25,.5,1,2,4 CALL HCHAR(J,1+2,ASC(SEGS(S$(J),1,1)) 
340 CALL CHAR(128,"000000FFFF000000") 

350 CALL CHAR(129,"07040704347C7830") NEXT 1 

360 CALL CHAR(130,"07040404347C7830") NEXT J 

370 CALL CHAR(131,"04040404347C7830") PTE=] 

380 CALL CHAR(132,"04040404344C4830") CH=131 

390 CALL CHAR(133,"0018244242241800") TEM=300 

400 CALL CHAR(134,"000000FF4242427E") VOL=3 

410 CALL CHAR(136,"0000000000000000") CUR=0 

420 CALL CHAR(137,"3844828282828284") GOSUB 1890 

430 CALL CHAR(138,"000000FFFF000000") C=7 

440 CALL CHAR(139,"848888FFFFA0COCO") CALL KEY(O,K,5) 

450 CALL CHAR(140 ,"0000000101020204") IF S<>1 THEN 890 

460 CALL CHAR(141 ,"8080808080808080") IF KÇ>61 THEN 730 

470 CALL CHAR(142,"040808FFFF202040") END 

480 CALL CHAR(143,"808080FFFF808080") IF K=13 THEN 870 

490 CALL CHAR(144,"4080800000000000") IF K=é THEN 860 

500 CALL CHAR(145,"6040408080808080") IF (K<48)+(K290)THEN 1270 

510 CALL CHAR(146,"80808080808080F8" ) IF F(K-47)=0 THEN 890 

520 CALL CHAR(147,"808080FFFF 404040") IF C>29 THEN 890 

530 CALL CHAR(148,"030C10FFFF10180C") IF ACC=0 THEN 1030 

540 CALL CHAR(149,"8E8380FFFF 988898") IF CUR>99 THEN 1220 

550 CALL CHAR(150 ,"0080E0FFFF380C04") GOSUB 2150 

560 CALL CHAR(151,"4020202010101008") GOSUB 2010 

570 CALL CHAR(152,"0603000000000000") GOTO 890 

580 CALL CHAR(153,"B0E0808080808080") CALL HCHARÇABS(L(K-47)) ,C,CH) 
590 CALL CHAR(154,"0404040404040808") C=C+1 

600 CALL CHAR(155,"080C06FFFF000000") IF L(K-47)20 THEN 1080 

610 CALL CHAR(156,"000000FFFFC0701F") CALL HCHAR(ABS(L(K-47)),C,35) 
620 CALL CHAR(157,"808080FFFF8386FC") C=C+1 

630 CALL CHAR(158,"183060FFFF000000") IF PTE=1 THEN 1130 

640 CALL CHAR(159,"8181424224241800") CALL HCHAR(ABS(L(K-47)),C,46) 
650 FOR 1=9 TO 20 C=C+1 


660 FOR J=2 TO 5 PTE=1 
670 REÂAD CS CALL HCHAR(2,11,32) 


680 CALL HCHAR(I,J,CS) CALL SOUND(D(CH-128)*TEMXPTE ,F(K-47) 
690 NEXT J 

700 NEXT 1 CUR=CUR+ 1 

710 DATA 136,136,137,136,138,138,139,138, IF CUR>100 THEN 1220 
136,140,141,136,138,142,143,138 EC1 ,CUR)=D(CH-1 28) xTEM*PTE 

720 DATA 140,144,141,136,142,138,143,138, E(2,CUR)=F(K-47) 
145,136,146,136,147,148,149,150,151,152 E(3,CUR)=VOL 

153,154 E(4,CUR)=E(2,CUR) 

730 DATA 155,156,157,158,136,136,141,136, E(5,CUR)=E(2,CUR) 

136,159,136,136 GOTO 890 

740 DIM S$(2) M$="MEMOIRE DES NOTES REMPLIE" 

750 S$(1)="ACCORD =0 TEMPS DE BASE=3" FOR 1=1 TO LEN(M$) 

760 S$(2)="POINTEE=  NOTE="&CHR$(131)&" CALL HCHAR(24,1+2,ASCCSEG$CMS#,1,122) 
VOLUME=3" NEXT 1 
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1260 GOTO 890 1740 NEXT 1 

1270 IF (K)>128)x(K{134)THEN 1280 ELSE 131|1750 GOTO 890 

0 1760 IF K()8 THEN 1810 

1280 CH=K 1770 CUR=DP 

1290 CALL HCHAR(2,19,CH) 1780 C=7 

1300 GOTO 890 1790 GOSUB 1930 

1310 1F K{>46 THEN 1390 1800. GOTO 890 

1320 IF PTE=1 THEN 1360 1810 IF K{)148 THEN 890 

1330 PTE=1 1820 CALL HCHAR(1,28,32) 

1340 CALL HCHAR(2,11,32) 1830 CALL KEY(0O,K,S) 

1350 GOTO 890 1840 1F S{)1 THEN 1830 

1360 PTE=1.5 1850 IF (K<49)+(K)57) THEN 1830 

1370 CALL HCHAR(2,11,46) 1860 TEM=(K-48)#100 

1380 GOTO 890 1870 CALL HCHAR(1,28,K) 

1390 1F K{)>43 THEN 1430 1880 GOTO 890 

1400 IF VOL)29 THEN 890 1890 IF CUR=0 THEN 1930 

1410 VOL=VOL+1 1900 FOR I1=1 TO CUR 

1420 GOTO 1470 1910 CALL SOUND(E(1,1),E(2,1),E(3,1),E(4, 
1430 1F K<>45 THEN 1510 1),E(3,1),E(5,1),E(3,1)) 

1440 IF VOL<2 THEN 890 1920 NEXT 1 

1450 VOL=VOL-1 1930 FOR J=3 TO 22 

1460 CALL HCHAR(2,28,32,2) 1940 CALL HCHAR(J,6,32,26) 

1470 FOR 1=1 TO LENCSTR$(UOL)) 1950 NEXT J 

1480 CALL HCHAR(2,1+27,ASC(SEGS(STR$(UOL) | 1960 FOR J=10 TO 18 STEP 2 

131739 1970 CALL HCHAR(J,6,128,26) 

1490 NEXT 1! 1980 NEXT J 

1500 GOTO 890 1990 DP=CUR 

1510 IF K()247 THEN 1580 2000 RETURN 

1520 1F ACC=0 THEN 1550 2010 CUR=CUR+1 

1530 ACC=0 2020 E(1 ,CUR)=D(CH-128)#TEM#PTE 

1540 GOTO 1560 2030 E(2,CUR)=F(K-47) 

1550 ACC=1 2040 GOSUB 2120 

1560 CALL HCHAR(1,11 ,ASC(STRS (ACC) )) 2050 E{4,CUR)=F(K-47) 

1570 GOTO 890 2060 GOSUB 2120 

1580 IF K{)>147 THEN 1700 2070 E(5,CUR)=F(K-47) 

1590 IF C)29 THEN 890 2080 E(3,CUR)=VOL 

1600 CALL HCHAR(16,C,134) 2090 CALL SOUND(E(1 ,CUR) ,E(2,CUR) ,E(3,CUR 
1610 CUR=CUR+1 ) ,E(4,CUR) ,E(3,CUR) ,E(5,CUR) ,E(3,CUR) ) 
1620 1F CUR)>100 THEN 32767 2100 C=C+3 

1630 E(1,CUR)=TEM 2110 RETURN 

1640 E(2,CUR)=44733 2120 CALL KEY(0,K,S) 

1650 E(3,CUR)=30 2130 IF (K{48)+(K)90)+(SC)1)THEN 2120 
1660 E(4,CUR)=44733 2140 1F F(K-47)=0 THEN 2120 

1670 E(5,CUR)=44733 2150 CALL HCHAR(ABS{(L(K-47)) ,C,CH) 
1680 C=C+1 2160 1F L(K-47))30 THEN 2180 

1690 GOTO 890 2170 CALL HCHAR(ABS(L(K-47)) ,C+1,35) 
1700 IF K{)>141 THEN 1760 2180 1F PTE=1 THEN 2220 

1710 IF (CUR=0)+(C=7) THEN 890 2190 PTE=1 

1720 FOR 1=DP+1 TO CUR 2200 CALL HCHAR(2,11,32) 

1730 CALL SOUND(E(1,1),E(2,1),E(3,1),E(4,| 2210 CALL HCHAR(ABS{(L(K-47)),C+2,46) 
1),E(3,1),E(5,1),E(3,1)) 2220 RETURN 
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Copie d’écran sur Seikosha GP100 


Mansur Tufail 


Ce programme écrit en Basic 
Etendu permet de faire une copie 
d'écran avec une résolution légère- 
ment inférieure à celle du TI (255 x 


Pour la même raison, la variable Z1 
varie de 1 à 25 (alors qu'il n’y a que 
24 lignes), de façon à imprimer ce 
qui reste dans les variables P$(32) 


après traitement de la dernière ligne. 
Le reste du programme correspond à 
ce que l’on peut trouver dans tous 
les programmes de hard copy”. 


192 au lieu de 256 x 192). 


La Seikosha GP100 utilise une ma- 
trie à 7 points, alors que la défini- 
tion des caractères du TI est réalisée 
dans une matrice 8 x 8. Cela n'est 
pas sans poser quelques problèmes 
lorsque l’on veut faire une copie 
d'écran. 


C3 ON 03 Ke CA CN C2 (CN ON CA CN EC 2 (CN CA NCA NON AC A UC AN A AH CN CN EN EH CA CU CN ER 
cl 


HOMO 
Dans ce programme, les descripteurs { 
hexadécimaux non traités dans une 
ligne (huitième point) sont concaté- 
nés avec ceux de la ligne suivante, 
ce qui nécessite la réservation de 32 
variables (P$(32)). Lorsque ces 32 
variables (une par colonne) attei- 
gnent une longueur de 14 descrip- 
teurs hexadécimaux, on imprime 
cette ligne ‘fictive’ supplémentaire, 
sans incrémenter le numéro de ligne 
(variable Z1). 


“a 


o.. à 


en ne 


00 mt 


d 


; 
Le 


Ji ii iiiibititutil 
Lininisaisis sn 





A 
sé 
i 

23 
:: 


SOSOCOSOCO0O0OSOO0DN 
COSOCODSOOOCSO0000SO0ED 


AO IGN A AO AN AO LCA CN AC ON AC CA AN UC OA AC AC ACR ACN LCA RCA HN UN NCA CE IC AN EN IC KA 


10000 ! H##MHAAAXEAERAREREEEX 
10010 ! *# Copie d’ecran * 
10020 ! * sur imprimante * 
10030 ! + Seikosha * 
10040 ! HXXXAXHXAAAEEREERERX 
10050 ! x Basic Etendu % 
10060 ! HXHXERAEEAREMAEERERX 
10070 
10080 
10090 
10100 
10110 K$="" 
:: NEXT 1 
10120 FOR Z21=1 TO 25 
10130 21$="" IMAX=8 
10140 FOR Z22=i TO 32 

IF LEN(P$#(22))=14 OR 21=25 THEN C$= 

: GOTO 10180 

CALL GCHAR(Z1,22,23) 

CALL CHARPAT(23,0C$) 

C$=P$(22)8C$ 

IF C$=K$ THEN 10380 ELSE K$=C$ 

J=0 :: N=i :: G(1)=128 G(2)=128 
5: 6(3)=128 :: G(4)=128 :: G(5)=128 :: 
G(é)=128 :: G6(7)=128 G(8)=128 
10210 FOR 1=i TO 14 
10220 S$=SEG$(C$,1,1) 
10230 IF S$)"9" THEN 10280 
10240 IF S$="" THEN 10360 


10250 
10260 
10270 
10280 


S=VAL( 5%) 

IF S=0 THEN 10360 

GOTO 10290 

S=ASC(S#) :: S=5-55 

10290 IF S)7 THEN G(1+J)=G(1+J)+N 

10300 IF (S>3 AND S<8)0R S>11 THEN G(2+J) 
=G(2+J)+N 

10310 IF (S=2 OR S=3 OR S=é OR S=7 OR S=1i 
0 OR S=ii OR S=14 OR S=15)THEN 6(3+J)=6 
(3+J)+N 

10320 S=S-2 

10330 1F SGN(S)=0 THEN 10360 
10340 IF SGN(S)=1 THEN 10320 
10350 G(4+J)=6(4+J)+N 

10360 IF J=0 THEN J=4 ELSE J=0 :: 
10370 NEXT 1 

10380 IF 22=32 THEN IMAX=7 

10390 FOR I1=1 TO IMAX 

10400 Z21$=21#$&CHR$(G(I )) 

10410 NEXT 1! 

10420 IF Z1=25 THEN 10440 

10430 P$(22)=SE6G$(C$,15,LEN(C#)-14) 
10440 NEXT 22 

10450 PRINT #1:21$ 

10460 IF LEN(P#(32))=14 THEN 10130 
10470 NEXT 21 

10480 CLOSE #1 

10490 STOP 


DIM P$(32),6(8) 
OPEN #H1:"P10",OUTPUT , VARIABLE 255 
PRINT #1:CHR#(8) 


FOR 1=1 TO 32 P$(I1)="" 


NENx2 
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Nous vous proposons un programme 
en Assembleur qui vous fournit de 
nouvelles fonctions, appelées du 
Basic, qui s’exécutent très rapide- 
ment et vous permettrons d’amélio- 
rer la présentation de vos program- 
mes. Vous pouvez bien sûr créer 
vous-même d'autres fonctions. 


Attention : l'accès direct au langage 
machine fait que certaines erreurs 
peuvent être fatales (contrôle perdu, 
programme disparu), ainsi nous vous 
recommandons de sauvegarder votre 
programme Basic avant de le tester. 


Mode d’emploi 


1) Insérez votre Mini-mémoire. Char- 
gez-y le programme à l'aide de 
EASY-BUG : 

e commande L si vous disposez de 
la cassette; 

e sinon commande M. Vous 
commencez, par exemple, par 
M7118. tapez 04 (ENTER), appa- 
raît M7119, tapez EO (ENTER), 
apparaît M711A, tapez 83 
(ENTER), etc... 


Sauvegardez sur cassette, commande 
S7000 TO 8000 


2) Vous disposez maintenant de 
toutes les fonctions détaillées ci- 
après. Le programme ESSAI n'est 
qu'un exemple simple des possibilités 
offertes. Après l'avoir étudié de près, 
l'avoir modifié etc... vous serez prêt à 
faire vos propres applications. 


Note : vous passez d'un exemple au 
suivant en appuyant sur une touche 
quelconque. 


Notez la vitesse du programme 
CHAR qui vous permet, en redéfinis- 
sant 4 caractères d'un coup. de voir 
le moulin tourner avec réalisme et 
sans à-Coups. 


Dans le troisième exemple, vous 
pouvez redéfinir tout caractère de 
code ASCII de 1 à 159. Pour le ca- 
ractère OÜ, vous détruisez éventuelle- 
ment le >DO qui est à l'adresse 768 
de la mémoire vidéo et qui indique 
qu'il n'y a pas de sprites définis, vous 
voyez alors apparaître des sprites. 


Ainsi, vous pouvez désormais utiliser 
en Basic des caractères de 1 à 159 
(ou tout au moins essayer car il se 
peut que certains programmes inter- 
fèrent sur les définitions de certains 
caractères). Rappelons que 30 est le 
code du curseur, 31 le code de la 
bordure et 32 le code de l’espace. 


Nouvelles fonctions 
CALL LINK ("DISPLH”, 
ligne, colonne, chaîne) 


Affiche horizontalement la chaîne à 
partir de la ligne et de la colonne 
données. 
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Nouvelles fonctions 
avec la Mini-Mémoire 


1 <= ligne <= 24 

1 <= colonne <= 32 

Chaîne; exemple : 

e BONJOUR” 

e A$ 

e B$(3) ou tout élément d’un ta- 
bleau est interdit. Dans ce cas faire 
successivement A$=B$(3) suivit 
de CALL LINK ("DISPLH”, 3, 
23, Aÿ). 


La chaîne ne doit pas dépasser le 
bas de l'écran, c’est-à-dire 32L + C 
— 33 + LEN (A$) <= 768 et LEN 
(A$) <= 255. 


CALL LINK (’DISPLV”, 
ligne, colonne, chaîne) 


Affiche verticalement la chaîne à par- 
tir de la ligne et de la colonne don- 
nées. 


1< = ligne <= 24 
1< = colonne <= 32 


Chaîne; exemple : 


e ‘BONJOUR’ 
e AS 
e B$(3) est interdit. 


La chaîne ne doit pas dépasser le 
bas de l'écran, c'est-à-dire L + 
LEN(A$) <= 25 et LEN (A$) <= 
255: 


CALL LINK ("CHAR’”, nu- 
méro du premier caractère à 
redéfinir, chaîne) 


Les 16 premiers éléments de la 
chaîne déterminent le patron du ca- 
ractère N, les 16 suivants détermi- 
nent le patron du caractère N + 1. 
etc. 


Le numéro du premier caractère à 
redéfinir peut aller de 1 à 159 (avec 
les réserves du préambule). 

La chaîne ne doit contenir que des 
éléments de /0,1...,9.A.B.C.D.E.F/ 
exemple : ‘’1AB3C”, A$ mais pas 
B$(2). 

La longueur de la chaîne doit être un 
nombre pair. 

On ne peut définir au delà du carac- 
tère numéro 159, c'est-à-dire N + 
INT (LEN (chaîne — 1 / 16) <= 
159. 


CALL LINK ("REP”, nom- 
bre de répétitions, chaîne à 
répéter, chaîne de retour) 


Renvoie dans la chaîne de retour la 
chaîne à répéter juxtaposée à elle- 


Denise Amrouche 


même, le nombre de fois indiqué. 


Nombre de répétitions >= 2. 
Chaîne à répéter sous forme ”’BON- 
JOUR” ou A$, mais pas élément 
d’un tableau B$(1). 

Chaîne de retour (C$, par exemple, 
reçoit le résultat). 


La chaîne de retour doit avoir une 
longueur inférieure ou égale à 255. 


CALL LINK (CACCERF”, 
ligne, colonne, taille obliga- 
toire, chaîne de retour) 


Saisit une chaîne de longueur don- 
née par la taille à partir de la ligne et 
de la colonne données et met cette 
chaîne dans la chaîne de retour. 


1 <= ligne <= 24 
1 <= colonne <=32 


Taille : 

e si c'est un nombre positif, 4 par 
exemple, dispose 4 blancs sur 
l'écran et saisit 4 caractères: 
si c'est un nombre négatif, —7 par 
exemple, il n'y a pas effacement 
de caractères et on saisit 7 carac- 
tères. 


Si on veut saisir un nombre, mettre à 
la ligne suivante du programme À = 
VAL (A$) 


CALL LINK ("COLOR’”, 
ler groupe de caractères, 
nombre de groupes consé- 
cutifs, couleur des caractè- 
res, couleur du fond) 


Met aux couleurs indiquées un cer- 
tain nombre de groupes de caractè- 
res à partir du premier groupe indi- 
qué. 


Le ler groupe de caractères peut 
aller de —3 à 16: 

e groupe —3; caractères 0 à 7 

e groupe —2; caractères 8 à 15 

e groupe — 1; caractères 16 à 23 

e groupe 0: caractères 24 à 31 


Nombre de groupes : à choisir pour 
ne pas dépasser le groupe 16. ler 
groupe + Nombre de groupes <= 
17. 


Pour les couleurs du caractères et du 
fond, employer le code de couleur 
habituel, par exemple 7 pour rouge 
foncé. 


CALL  LINK("SCROLL”, 
ligne L1 du coin supérieur 
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gauche, colonne C1 du coin 
supérieur gauche, nombre 
de lignes L nombres de co- 
lonne C ,chaîne) 

La chaîne s'inscrit à la ligne L1 + L 
— 1 à partir de la colonne Cl, elle 
est complétée éventuellement par 


des blancs pour aller jusqu'à la co- 
lonne C1 + C — 1. 


Ligne L1 du coin supérieur gauche 
de 1 à 24. 

Colonne C1 du coin supérieur gau- 
che de 1 à 32. 

L entier tel que L1 + L <= 25. 

C entier tel que C1 + C <= 33. 
Ur telle que LEN (chaîne) <= 


La ligne L1, de la colonne C1 à la 
colonne C1 + C — 1, disparaît. 


La ligne L1 + 1, de la colonne C1 
+ C — 1, passe à la ligne Li, 
mêmes colonnes. 

La ligne L1 + L — 2, de la colonne 
C1 à la colonne C1 + C — 1, passe 
à la ligne du dessus. 


Ci 


a 


LI 


Si vous désirez créer vous-même 
d’autres fonctions qui vous man- 
quent en Basic, vous pouvez, par 
exemple, procéder de la façon sui- 
vante : 


e charger le programme dans la 
Mini-mémoire, faire, avec EASY 
BUG, S7118 TO 74EE: 
charger votre assembleur ligne par 
ligne; 
créer vos fonctions à partir de 
l'adresse 7>7D00, par exemple 
faire S 7D00 TO 8000: 
charger votre premier enregistre- 
ment; 
créer la table REF/DEF: 
ajuster le contenu des adresses 
=I01CG -S7/0ID:r S7OIE et 
>701F; 
sauvegarder le tout avec S7000 
TO 8000. & 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


REM XHHEHRHRMERRRRURNUREUREX 
REM * Exemples * 
REM *% d’utilisation * 
REM % des fonctions % 
REM HHHEHRNMRUNRURURRURREURE EX 
REM * Basic TI plus  * 
REM *% Mini-memoire L 

ÉTFISISSISIIII II SIT) 


3970 
400 
410 
420 
430 
440 
450 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CHAR(104,"0") 

LINKC'REP" ,25,"h" ,EORD$) 
LINKC"REP" ,8,"hac" ,4$) 
LINKC"REP",8,"hbd" ,B$) 
LINK("DISPLH" ,18,4,BORD$) 
LINKC"DISPLH" ,21 ,4,BORD#) 

CALL LINK("DISPLH" ,19,4,A$&"h") 

460 CALL LINKC"DISPLH",20,4,B$&"h") 

470 E$="080C040602030101030E1C70C00000000 
0000000030E38E080C0406020301018" 

480 F$="C0E070381C0E070303070E1C3870E0C00 
3070E1C3870E0C0C0E070381C0E0703" 

490 G$="00000000C0701C07010101030206040C0 
8181030206040C0C0F01C0701000000" 

500 CALL LINKC"CHAR" ,97,D$) 

510 CALL LINKC"CHAR" ,97,E$) 

520 CALL LINKC"CHAR" ,97,F#) 

530 CALL LINKC"CHAR" ,97,6$) 

540 CALL KEY(3,K,S) 

550 1F SC1 THEN 500 

560 REM ------- SCROLL 

570 CALL CLEAR 

580 CALL COLOR(10 ,A,A) 

590 CALL HCHAR(1,1,104,768) 

600 CALL LINK("COLOR" ,1,8,5,16) 

610 CALL COLOR(2,2,2) 

620 CALL HCHAR(4,4,40 ,26) 

630 CALL LINKC'"REP" ,26,"(",A$) 

640 CALL LINK("DISPLH" ,20,4,A$) 

650 J=2 

660 PAS=1 

670 CALL LINKC'REP",J," ",DEB$) 

680 CALL LINKC"SCROLL",5,5,15,24,DEB$&"B0 
NJOUR" ) 


CLEAR 
----CH0IX DE LA COULEUR DE L’ECR 


LINKÇ"DISPLH" ,2,3," TAPEZ LE CODE 

LA COULEUR") 

CALL LINKÇ"DISPLH",3,3,"DE L'ECRAN PU 
IS FAITES ENTER") 
230 CALL LINKC"ACCEPT",5,15,2,4$) 
240 AVAL (AS) 
250 IF (A<2)+(A)16)THEN 230 
260 CALL SCREEN(A) 

CHOIX DES COULEURS 


IF 5 THEN 310 
CALL LINK{"COLOR" ,1,8,5,1) 
GOTO 320 
CALL LINKC"COLOR" ,1,8,2,1) 
IF A=7 THEN 350 
CALL LINKC"COLOR" ,9,2,7,15) 
GOTO 370 
CALL LINKC"COLOR" ,9,2,13,10) 
REM --- MOULINS 
D$="01010101010101FFFF010101010101018 
0808080808080FFFF80808080808080" 
380 CALL LINKC"CHAR" ,97,D$) 
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690 CALL KEY(3,K,S) 
700 IF S=1 THEN 770 
710 J=J+PAS 

720 1F (J{>16)#(J()1)THEN 670 ON ? 
730 PAS=PAS#(-1) *) 
740 J=J+2*PAS 840 CALL LINK("ACCEPT",15,6,-16,B$) 
750 GOTO 670 850 CALL LINK("CHAR" ,A,B$) 

760 REM DEFINITION DE CARACTERES DE CODE | 860 CO=INT(A/8)-3 

ASCII EVENTUELLEMENT INFERIEURS À 32 870 CALL LINK(®COLOR" ,C0,1,5,12) 
770 CALL CLEAR 880 CALL LINKC"REP" ,20 ,CHR$(A) ,C$) 
780 CALL SCREEN(8) 890 CALL LINK("DISPLH" ,22,7,C$) 

790 CALL COLOR(2,2,16) 900 CALL KEY{3,K,S) 

800 CALL LINK("DISPLH" ,10,3,"QUEL CARACTE | 910 IF S=1 THEN 800 

RE VOULEZ-VOUS REDEFINIR ? "“) 920 GOTO 900 


810 CALL LINK("ACCEPT",11,15,3,4$) 

820 A=VAL(AS) 

830 CALL LINK(*DISPLH",14,3,"CODE DU PATR 
FFFFFFFFF0000000 


DEF DISPLH,CHAR B #R11 R1,1 


DEF 
DEF 
DEF 


ADRG 
CLR 


LWP] 
B 


SCROLL , COLOR 
REP ,ACCEPT 
DISPLU 


>7118 


3>837C 
>83E0 
320070 


3) 6024 

LI 
R1,3)8C00 
R2 

L2 


RO 
23)6044 
2)601cC 
>1200 
*R11 


RO 
R2,TA 
*R2 

3) 604€ 
RS 

#R2+ ,RS 
RS 

#R11 


RO 
R2,TA 
26048 
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DISPLH 


DISPLU 


DISPLH 
DISPLVU 


EI RL 
BL  3LN 
MOV 9)834A,R4 
SLA R4,5 

RI 
BL 3LN 
MOV  3)834A,R3 
A  R3,R4 
AI R4,-33 


R1 
aLC 
Ré,)6000 
R4 ,RO 


#R2+ ,RI 
Ré ,R1 
3) 6024 
R7,RO 
RS 

BO 


aLN 
3)834A ,R4 
R4 ,96 
R4,3 

RI 

aLC 


R4 ,RO 
#R24 ,RI 
aTR 
Ri,4 

R1 ,R4 
#R2+ ,RI 
aTR 

R4 ,R1 
RI 

3) 6024 
RO 

RS 

SU 


R1 
R1,)00FF 
R1,64 

L 

R1 ,-48 

R 
R1,-55 
#R11 
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ACCEPT 


LI 
BL 
BL 


3)834A , Rd 
R4 

R1 

aLC 
R5,Ré 
RO ,TA+1 
RO ,R1 
R1 ,R2 
R5,R2 
#R1 ,*R2 
Ri 

Ré 

82 


RS 
RS 


R4 
B2 
R1,3 
RC 
aF1 


ACCEPT 


LI 
BL 
MOUV 
SLA 


BL 
MOV 
Â 
AI 


BL 
MOV 
CI 


BL 


R1,1 
3LN 
2)834A ,R4 
R4,5 

RI 

aLN 

3)834 ,R3 
R3,R4 
R4,-33 

R1 

aLN 
38344 ,R5 
RS,0 

si 

an 


RS 

R4 ,RO 
R4,R8 
RS ,R8 


RI 
2)602C 
R1 ,Ré 

R1 ,>7E00 
2) 6024 


228374 
3>6020 


32837C,R10 


Ré,R1 
3) 6024 
R10 ,R10 
sC 
3)8375,R1 
R1,2FF00 


Ri ,)FF00 
sc 

Ri ,>0D00 
+ 
Ri,)0800 
5 

Ri 

R1 ,32 

sc 
R1,126 
$C 

Ri 
R1,)6000 
3) 6024 
RO 

RO ,R& 

A 

RO 

A 


RS ,R2 
R4 ,RO 

R1,TA+1 
2) 6030 


R1 ,R5 
R2,RS 
RS 

R7 
#R5,R7 
R7,)8000 
BL 

R7,) 4000 
R7,*XRS 
RS 

#R5 ,R7 
RS,TA 
B4 

RR 

R2 

83 

R2 


MOVB R2,3TA 


LI 
CLR 
BL 
B 


MOV 
MOV 
LI 
MOV 
BL 
B 

C 


R1',4 
38370 
aRC 
aF1 


R11,R10 
R4 ,RO 
R1,)8000 
RS, R2 
4RE 

*R10 

R4 ,RO 

SC 

RO 

A 


R1,1 

aLN 
38344 ,R4 
R4,783 


R1 
aLN 
28344 ,R2 
R1 

aLN 
28344 ,R3 
R3 

R3,4 

Ri 

aLN 
28348 ,R1 
RI 

R3,R1 

RI 

R4 ,RO 

2RE 

4F1 


R1,1 

aLN 
3)834A ,R4 
R4,5 

R1 

aLN 
32834A ,R3 
R3,R4 
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R4,-33 
R1 
aLN 
2)834A,R5 
RS 
RI 
BL  3LN 
MOV  2)834A,R2 
MOV  R4,RO 
AI  RO,-32 


Cet article vous propose un petit 
voyage dans la mémoire du TI- 
99/4A, afin de découvrir comment 
sont stockées les lignes constituant 
un programme écrit en Basic TI ou 
en Basic Etendu. Nous verrons qu’un 
programme peut très bien se modi- 
fier lui-même ou, pourquoi pas, gé- 
nérer d’autres programmes. 


Les ”’tokens” 


Le langage Basic est composé de 
mots clés qui sont relativement longs, 
du moins pour certains (RANDO- 
MELE, RESTORE..). Si ces instruc- 
tions étaient conservées sans modifi- 
cation, la mémoire de notre 
ordinateur serait très rapidement sa- 
turée. Pour pallier en partie cet in- 
convénient - le Basic reste un ’dévo- 
reur de mémoire” - les mots clés 
sont codés et n’occupent qu’un seul 
octet appelé ‘’token”. Afin de faire la 
différence avec les codes ASCII stan- 
dards, les tokens utilisent les octets 
hauts, c’est-à-dire ceux dont le bit de 
poids fort est mis à 1 (voir l’article 
sur les systèmes de numérations, pu- 
blié dans le précédent numéro de 99 
Magazine). 


Vous trouverez, à la fin de cet article, 
une liste complète des tokens em- 
ployés par Texas Instruments. Les 
instructions spécifiques au Basic 
Etendu sont soulignées et ne sont 
bien sûr pas reconnues par le Basic 
TI, ce qui explique les effets bizarres 
obtenus lorsque l’on tente de lister 
un programme écrit en Basic Etendu, 
sans le module du même nom. 


La suite des explications ne 
comprendra que des exemples utili- 
sant le système décimal; cependant, 
les tokens sont donnés en décimal et 
en hexadécimal afin de vous éviter la 
conversion lorsque vous utiliserez la 
liste pour vos propres applications 


Les indicateurs 
Indicateur de chaînes fer- 
mées par des guillemets 


Lorsque l'interpréteur rencontre cet 
indicateur, qui est un octet contenant 
la valeur 199, il sait que ce qui suit 
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LI Ri,TA 
CLR Ré 


AI RO,64 
BLWP 23)6030 
AI  RO,-32 
BLWP 2)6028 
INC Ré 

C  Ré,R5 
JL @ 


RO ,32 

RO ,R4 

R1 ,>8000 
RE 


END 


Le Basic à la loupe 


est une chaîne de caractères repré- 
sentant une constante alphanuméri- 
que. L'indicateur est suivi par un 
octet donnant la longueur de la 
chaîne, ainsi, ’ABCDEFG” devient : 


199 (indicateur) 7 (longueur) 65 66 
67 68 69 70 71 (chaîne). 


Indicateur de chaînes non 
fermées 


Cette fois, l'indicateur est un octet à 
200 qui fait savoir à l’interpréteur 
qu'il va rencontrer une constante nu- 
mérique ou un mot clé non tokenisé. 
Comme pour l'indicateur de constan- 
tes alphanumériques, la valeur 200 
est suivi par un octet pour la lon- 
gueur. 


Puisque nous avons la liste des 
tokens, nous pouvons déjà traduire” 
certaines choses; par exemple, CALL 
CLEAR devient, dans une ligne de 
Basic : 


157 (CALL) 200 (indicateur) 5 (lon- 
gueur) 67 (C) 76 (L) 69 (E) 65 (A) 
82 (R). 

De même, À = 123.32 devient : 


65 (les noms de variables sont repré- 
sentés par des codes ASCII stan- 
dards) 190 (=) 200 (indicateur) 6 
(longueur) 49 50 51 46 (point) 51 
50. 


Indicateur de numéro de 
ligne 


Il est égal à 201 et précède toujours 
un numéro de ligne. On le rencontre 
donc toujours après les instructions 
GOTO, THEN, etc... et RESTORE 
lorsqu'un numéro de ligne est em- 
ployé. 

Les numéros de lignes sont codés sur 
seize bits et en complément à deux 
(32767 maximum), ce qui fait que 
deux octets sont nécessaires à la re- 
présentation des numéros. GOTO 
500 devient : 


134 (goto) 201 (indicateur) 1 (partie 
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entière de 500/256) 244 (500 moins 
256). 


Constitution d’une ligne 


Chaque ligne est précédée par un 
octet contenant la longueur totale de 
la ligne, et se termine par un octet 
nul (tous les bits sont à zéro). De 
cette façon, l’interpréteur sait qu'il est 
en fin de ligne dès qu’il rencontre un 
zéro, sauf lorsque cette valeur est 
précédée par un octet contenant 201 
car, dans ce cas, il s’agit de l’octet de 
poids fort d’un numéro de ligne infé- 
rieur à 256. 


De même, si l’octet à zéro est situé 
deux octets plus loin que l'indicateur 
7201”, nous avons à faire à l’octet 
de poids faible d’un numéro de ligne 
multiple de 256. Par exemple, une 
hypothétique ligne 2560 serait repré- 
sentée par 10 (poids fort) et O (poids 
Er 2560 est égal à 256 * 
10 + 0. 


Signalons que l’octet terminal est pris 
en compte par l’octet indiquant la 
longueur de la ligne, et que cette 
même ligne peut contenir jusqu’à 
255 octets. 


Nous sommes maintenant en posses- 
sion de tous les éléments requis pour 
l'écriture d’une ligne de Basic à la 
manière de l'interpréteur. Par exem- 
ple, FOR B=0 TO 10 STEP 2 de- 
vient, quand vous enfoncez la touche 
ENTER pour la valider : 


16 (longueur de la ligne) 140 (FOR) 
66 (A) 190 (=) 200 (indicateur) 1 
(longueur de chaîne) 48 (0) 177 
(TO) 200 (indicateur) 2 (longueur) 
49 48 (10) 178 (step) 200 (indica- 
teur) 1 (longueur) 50 (2) 0 (octet ter- 
minal). 


Position des lignes en 
mémoire 


En Basic TI, les lignes sont toujours 
stockées dans la mémoire vive du 
processeur vidéo, même si une ex- 
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tension 32 Ko est raccordée au sys- 
tème. En Basic Etendu, les lignes 
sont en mémoire vidéo si l’extension 
n’est pas présente, alors qu’elles sont 
situées dans la mémoire vive directe- 
ment adressable par le microproces- 
seur dans le cas contraire, et utilisent 
les adresses 40960 à 65535 (=A000 
à >FFFF). 


Dans tous les cas, les lignes sont sto- 
ckées dans l’ordre dans lequel elles 
sont entrées (les numéros ne sont 
pas pris en compte), et ce depuis les 
adresses fortes vers les adresses fai- 
bles. Le dernier octet (octet terminal) 
de la première ligne entrée se trouve 
à l’adresse : 


e 16383 (>3FFF) sans contrôleur 
de disquette; 

e 14295 (>37D7) avec un contrô- 
leur de disquette; 

e 14813 (>39DD) avec un contrô- 
leur de disquette et CALL FILES 


(2); 

e 15531 (>3CAB) avec un contrô- 
leur de disquette et CALL FILES 
(1). 


Table des numéros de 
ligne 


Chaque ligne du programme occupe 
quatre octets dans cette table située 
juste avant la dernière ligne entrée. 
Les deux premiers octets représen- 
tent le numéro de ligne alors que les 
deux suivants indiquent l'adresse en 
mémoire du premier octet de la ligne 
(il s’agit bien du premier octet de la 
ligne et non pas de l’octet qui indi- 
que la longueur). 


Si l'on consulte le contenu de cette 
table, nous nous apercevons que les 
numéros de lignes apparaissent dans 
l’ordre, mais à l’envers. Ainsi, pour 
un petit programme constitué des 
lignes 10, 20 et 30, nous trouvons 
dans la table : 


e 00 30 - adresse de la ligne 30; 
e 00 20 - adresse de la ligne 20; 
e 00 10 - adresse de la ligne 10. 


L'adresse du début de la table des 
lignes (octet de poids fort du numéro 
de ligne le plus élevé) est située à 
l'adresse —31952 (>8330) en Basic 
En et —-31970 (>831E) en Basic 


Un petit programme 


Le programme proposé, pour 
concrétiser ce que nous venons de 
voir, réalise son propre ‘’’décodage”. 
Vous pouvez l’incorporer à vos pro- 
grammes pour en étudier le contenu. 


Pour chaque ligne analysée, vous 
obtenez l'affichage du numéro de 
ligne, de l'adresse en mémoire du 
premier octet de la ligne, du nombre 
d’octets la constituant et de son 
contenu en décimal et en hexadéci- 


mal. La première ligne traitée est la 
dernière ligne du programme. Pour 
visualiser la ligne suivante (dans la 
table des numéros de ligne, ligne 
précédente dans le programme), il 
faut appuyer sur une touche quel- 
conque. 


Très important : le programme uti- 
lise l'adresse —31970, qui contient 
l'adresse où se trouve l'octet de 
poids fort du numéro de la dernière 
ligne. Cette adresse n’est à jour 
qu'après l’utilisation de la commande 
LIST”; il faut donc utiliser cette 
commande avant de faire démarrer 
le programme. Il est inutile de lister 
la totalité du programme; ”LIST 1”, 
par exemple, met à jour l’adresse qui 
nous intéresse. 


Fonctionnement du 


gramme 


pro- 


Les lignes 12 à 16 initialisent un ta- 
bleau qui sera utilisé pour les conver- 
sions des nombres décimaux en 
nombres hexadécimaux. 


La ligne 17 place l’octet de poids fort 
de l'adresse du premier numéro de 
ligne dans la variable À, alors que 
l’octet de poids faible est placé dans 
la variable B. L'adresse —31970 est 
directement adressable par le micro- 
processeur, il faut donc utiliser l’ins- 
truction CALL PEEK. 


La petite opération de la ligne 18 
nous permet d'obtenir une adresse 
réelle dans ATL (pour ”’Adresse de la 
Table des numéros de Lignes”). 


La variable NLP (pour ‘Numéro de 
la Ligne Précédente”) sera utilisée 
pour savoir si l’on sort de la table de 
numéros de lignes. 


Les lignes 20 et 21 vont chercher le 
numéro de la ligne et le placent dans 
la variable NL. Puisque la table des 
numéros de ligne est située dans la 
mémoire du processeur vidéo, nous 
utilisons l'instruction CALL PEEKV. 


La ligne 22 nous permet de détermi- 
ner si la dernière ligne a été consul- 
tée. Voici pourquoi : 

e juste après la table des numéros 
de ligne, nous trouvons le début 
de la dernière ligne entrée, soit 
l’octet qui indique la longueur de 
la ligne et le premier octet faisant 
réellement partie de la ligne; lors- 
que le programme ‘sortira” de la 
table des numéros, il considérera 
ces deux octets comme étant le 
numéro de la ligne suivante; 
une ligne est constituée d’au 
moins deux octets (une instruction 
sans argument, comme END”, et 
un octet terminal), nous sommes 
donc sûr que l’octet indiquant la 
longueur sera toujours supérieur 
ou égal à 2. Comme cette valeur 
est mutipliée par 256 (ligne 21), le 
faux numéro de ligne” ne peut 


être inférieur à 512 + le token de 
l'instruction soit, dans le cas de 
l'instruction PRINT”, 512 + 156 
— 668; 
le ‘faux numéro de ligne” surve- 
nant juste après le dernier numéro 
de ligne de la table, qui est le nu- 
méro de la première ligne du pro- 
gramme, si l’on admet que le nu- 
méro de la première ligne d’un 
programme est rarement inférieur 
à 668, le fait de trouver un nu- 
méro de ligne supérieur au nu- 
méro de la ligne précédente nous 
indique que toutes les lignes ont 
été traitées. 
Pour le traitement de la première 
ligne, la variable NLP est initialisée à 
65535 qui est une valeur impossible 
puisqu’un numéro de ligne ne peut 
être supérieur à 32767 (seize bits en 
complément à deux).Comme nous 
l'avons vu précédemment, les numé- 
ros de ligne sont suivis par deux 
octets constituant l’adresse du pre- 
mier octet de la ligne; l’adresse du 
premier de ces deux octets est donc 
égale à ATL + 2. 


Les lignes 25 et 26 agissent de la 
même façon que les lignes 20 et 21 
mais retournent dans APO l'adresse 
du premier octet de la ligne en ques- 
tion. 

L'octet précédent le premier octet de 
la ligne contenant le nombre d’octets 
dans la ligne, la ligne 28 retourne ce 
nombre dans NO. 

APOH conserve le nombre d’octets 
pour l'affichage du contenu de la 
ligne en hexadécimal. 


La ligne 31 retourne le contenu d’un 
des octet de la ligne. La variable 
APO sera ensuite incrémentée de un 
pour pointer l’octet suivant. 

Si l’octet contient la valeur ’’zéro”, il 
s’agit d’un octet terminal ou d’une 
partie d’une adresse précédée par 
l'indicateur 201”. Dans ce cas, le 
programme est dirigé vers les lignes 
36 et 37 où les deux octets placés 
avant l’octets concernée sont testés. 
Si un de ces deux octets contient 
7201”, le ‘’décodage” de la ligne 
continue. Sinon, nous ajoutons 4 à la 
variable ATL, la variable NLP est 
mise à jour et nous passons à la ligne 
suivante. 


En Basic Etendu 


Pour écrire et utiliser ce type de pro- 
gramme avec le Basic Etendu, il faut 
faire quelques remarques : 


e une extension de mémoire est in- 
dispensable puisque les instruc- 
tions CALL PEEK et CALL LOAD 
ne sont pas utilisables sans cet ac- 
cessoire; 
l'adresse du premier octet de la 
table des numéros de ligne ne se 
trouve plus à l'adresse —31970 
mais à l’adresse —-31952:; 
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e lorsqu'une extension de mémoire 
est raccordée au TI, le Basic 
Etendu utilise la partie haute de 
l'extension pour le stockage de la 
table et des lignes du programme; 
il faut donc employer CALL PEEK 
au lieu de CALL PEEKV (de 
toutes façons, CALL PEEKV 
n'existe pas en Basic Etendu !); 
les adresses ‘’peekées” dans 
—31952 et dans la table des nu- 
méros de ligne sont codées sur 
seize bits mais en valeurs non si- 
gnées,; elles peuvent donc être su- 
périeures à 32767. Comme CALL 
PEEK n’admet pas les valeurs su- 
périeures à 32767, il faut leur 
soustraire 65536 afin d'obtenir le 
complément à deux. Ainsi, 40000 
devient 40000 — 65536 soit 
—25536. 


Quelques constatations 


Lorsque l’on regarde ”à l’intérieur” 
d’un programme, on se rend compte 
que la mémoire de notre ordinateur 
est souvent encombrée inutilement : 
le programme accompagnant cet arti- 
cle à l'air tout à fait correct mais, si 
nous regardons d’un peu plus près... 


Les REMarques 
On est pour ou on est contre, là 
n’est pas la question. Par contre, si 
des espaces suivent la remarque ou 
l'instruction REM, ces espaces sont 
conservés. Cela est fort génant car 
on peut ainsi perdre beaucoup de 
précieux octets sans s’en apercevoir. 
Il faut aussi signaler que si l’instruc- 
tion REM est employée seule 
(comme à la ligne 10 de notre pro- 
REM 
REM 
REM 
REM 
REM 
REM le 
REM 
REM 
REM 
REM 
CALL CLEAR 
DIM H$(15) 


Ce programme 
fonctionne 
en Basic TI avec 


module 


D NN Oo O1 B Q N — 


la Mini—-Memoire ou 


gramme), elle est toujours suivie d’un 
espace. 


Les DATA 


La ligne 13 occupe 65 octets ! C’est 
beaucoup pour seize caractères. 
Remplaçons les lignes 13 et 15 par : 


13 D$ = ”0123456789ABCDEF” 
15 H$(B) = SEG$ (D$, B + 1, 1) 


Regardez maintenant se qui ce 
trouve en mémoire, ou faîtes le cal- 
cul : nous avons gagné 30 octets sur 
deux lignes ! 


Les constantes 


Dans tous les programmes, certaines 
valeurs sont utilisées fréquemment; 
c'est le cas de ”1”, utilisé six fois 
dans notre programme. Chaque 
constante est précédée par un indica- 
teur (200) et un octet donnant la 


longueur de la chaîne; donc, notre 
”1” insignifiant occupe à chaque fois 
3 octets alors qu'il aurait été préféra- 
ble de donner la valeur ”1” à une 
variable, étant donner qu’une varia- 
ble d’un caractère occupe un octet. 
Ceci n’est bien sûr pas valable si l’on 
utilise des noms de variables ”à ral- 
longes”. 


Nous arrivons au terme de cet article 
mais le dossier est loin d’être clos. En 
effet, nous verrons une prochaine 
fois comment faire certaines opéra- 
tions normalement impossibles 
(comme RESTORE A, RESTORE 10 
*x X, GOTO B + C..), comment 
sont stockées les variables, etc... 


Si vous trouvez des astuces permet- 
tant de gagner de la place ou d’accé- 
lérer l'exécution des programmes, 
n'oubliez pas de nous le faire savoir. 
A la prochaine fois. F 


vidéo avec le Basic et un 
contrôleur de disquettes 


Table d'écran 


Table des couleurs >031F 


Table des descripteurs 


HHRHHREHHREREERHEEHHERXX 


* 
* 
* 
* 


% 


Editeur/Assembleur * 
sans extension 32K * 
HAXERHEEEEERREERERREEEX 


| Table des lignes 


Programme Basic 


FOR B=0 TO 15 

REÂD H$(B) 

NEXT B 

CALL PEEK(-31970 ,A,B) 
ATL=A*x256+B 
NLP=65535 

CALL PEEKV(ATL,À,B) 
NL=A*256+B 
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Espace réservé au contrôleur 


de disquettes 
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22 IF NLDNLP THEN 54 FOR B=1 TO NO 

23 PRINT "LIGNE" 3;NL CALL PEEKV(APOH, 1) 
24 AL=ATL+2 NIi=INT(I1/16) 

25 CALL PEEKV(AL,A,B) N2=I-N1#16 

26 APO-=A*x256+B PRINT " }"&HS$CN1)&H$(N2) ; 
27 PRINT "ADRESSE :";AP0 APOH-APOH+1 

28 CALL PEEKV(APO-1 ,N0) NEXT B 

29 PRINT STR$(NO) ;" OCTETS":: ATL=ATL+4 

30 APOH-APO NLP=NL 

31 CALL PEEKV(AP0O,1) PRINT ::° 

32 PRINT ]!; 

33 IF 1=0 THEN 36 CALL COLOR(8,10,1) 
34 APO=APO+1 CALL KEY(0,K,5) 

35 GOTO 31 IF S=0 THEN 50 

36 CALL PEEKV{APO-2,X,Y) CALL COLOR(8,2,1) 
37 IF (X=201)+(Y=201)THEN 34 GOTO 20 

38 PRINT :: END 


ABS 203 
ACCEPT 164 
ALL 236 
AND 187 
249 
ASC 220 
AT 240 
ATN 204 
BASE 241 UALPHA 
238 UNBREAK 
BREAK 142 UNTRACE 
CALL 157 UPDATE 
CHR$ 214 USING 
CLOSE 160 VAL 
cos 205 VALIDATE 
147 VARIABLE 
DEF 137 S WARNING 
DELETE 153 XOR 
DIGIT 233 1 (exciam.) 
138 # (dièse) 
162 & 
ELSE 129 ; ( 
END 139 ) 
EOF 202 * (astérisq.) 
ERASE 203 + (plus) 
ERROR 165 . (virgule) 
EXP 206 - (moins) 
250 / 
FOR 140 SEG$ ; 
Go 133 SEQUENTIAL :: (séparat.) 
GOSUB 135 SGN : 
GOTO 134 SIN « 
IF 132 SIZE - (égai) 
IMAGE 163 SQR > 
146 STEP " (expon.) 
207 
245 STR$ 


>D5 SUB 

»8D SUBEND 
>AA SUBEXIT 
»D0 

>DF 

>E0 THEN 
96 TO 

TRACE 


RAPETERS 
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NDLR : ce programme écrit en 
Basic Etendu nécessite une exten- 
sion 32 Ko et un lecteur de disquet- 
tes. Comme il n’est pas possible de 
stocker des programmes de plus de 8 
Ko sur cassette, le programme a été 
enregistré, sur la cassette d’accompa- 
gnement de ce numéro, en trois par- 
ties. La première partie est autonome 
et doit donc être transférée sans mo- 
dification. 

La seconde et la troisième partie doi- 
vent être regroupées en utilisant la 
méthode suivante : 


e charger la seconde partie en mé- 
moire depuis la cassette ; 

e sauvegarder ce segment sur dis- 
quette en le baptisant S1 ; 

e charger la troisième partie en mé- 
moire depuis la cassette ; 

e sauvegarder ce segment sur dis- 
quette avec l'option MERGE (SAVE 
DSK 1.52,MERGE) ; 

e charger en mémoire le programme 
S1 depuis la disquette avec OLD 
DSK 1.51 ; 

e charger en mémoire le programme 
S2 depuis la disquette avec MERGE 
DSKI1.S2 ; 


e sauvegarder sur disquette le pro- 
gramme ainsi reconstitué avec SAVE 
DSK.1.STAR2. Le nom “STAR2” est 
impératif, car il y a un RUN “DSK 
1.STAR2” dans la première partie ; 

e détruire les programmes S1 et S2. 


Les règles du jeu et les quelques 
commentaires insérés dans les pro- 
grammes (le minimum compte tenu 
de la place en mémoire) sont suffi- 
sants pour comprendre le jeu. Seule 
peut-être une explication historique 
complémentaire est nécessaire en ce 
qui concerne la nomenclature galacti- 
que. 


Comme le sait chaque écolier, la plu- 
part des civilisations de la voie lactée 
ont donné des noms différents aux 
quadrants galactiques. Au cours de la 
troisième conférence mégallannique, 
toutes les cultures participantes se 


Star Trek 


Jean-Philippe Guillemant 


sont mises d’accord, en signant le 
document appelé depuis “Conven- 
tion 26”, pour spécifier 64 subdivi- 
sions principales, selon une matrice 
8*8, dans toutes les représentations 
bi-dimensionnelles de la galaxie. 

Ceci diffère partiellement de la cul- 
ture Terrienne, qui a participé à l’or- 
ganisation initiale de la Fédération 
Galactique, dont les cartes, vieilles de 
plus d’un siècle, ont toujours montré 
16 régions principales nommées 
depuis le ciel de la terre. Ces régions 
étaient divisées en quatre “Qua- 
drants” désignés par les anciens chif- 
fres romains. 


La relation entre la nomenclature ga- 
lactique historique terrienne et la no- 
menclature galactique standard est 
montrée d’une part à la fin de la 
règle du jeu, d’autre part en librairie- 
ordinateur (option 6). 


ÉRTISSISIISISII TITI ST: 
2 STARTREK # 
RER EE DEEE AE EEE JE JE JE EE 
* Fremiere 
ÉTÉISSISISLISISSI LS SL. 
* Basic Etendu * 
DEA DE DE DE HE EE EE DE DE JE XE JE JE 


19,"Si vous tapez un paramdtre" 
20,"invalide, la commande sera" 
21,"annul{e." 

partie * a7 

1,"INSTRUCTIONS POUR" 
2,"""SUPER STAR TREK"°" 

, À . 

5,"4. Chaque message vous sera" 
6," transmis en r{p{titif au bas' 
7,;"de votre {cran r{cepteur." 
8,"Quand vous l’aurez enregis-" 
9,"tr{£, vous pourrez taper sur° 
10,"une touche quelconque pour" 
11,"continuer votre mission." 
13,"5. La galaxie est divis{e en 


DATA 14 
DATA 17 


DATA 1,"INSTRUCTIONS POUR" 

DATA 2,"""SUPER STAR TREK""" 

DATA 3," A 

DATA 5,"1. À la question ‘COMMANDE: ," 
DATA é6,"#frappez l’une des commandes" 
DATA 7,"suivantes:" 

DATA 9,"NAV - SRS - LRS - PHA - TOR" 
DATA 10,"- SHE -— DAM - COM - XXX -" 
DATA 12,"2, Si vous tapez une comman- 


14,"un damier de 8*8 quadrants," 
15,"et chaque quadrant divis{* 
ié,"ensuite en une grille de” 
17,"8*8 secteurs (conform{ment" 
18,"4 la Convention Galactique" 
19,"appelte ""Convention 2*6""). 


DATA 13,"de invalide, une liste abr{- 


DATA 14,"gte des commandes autoris{es 

18 

1," INSTRUCTIONS POUR" 

2,"""SUPER STAR TREK""" 

3, [] 

95,"6. 11 vous est fix{ un point" 


DATA 15,"sera affich{e." 
DATA 17,"3. Certaines commandes exi-" 
DATA 18,"gent l’entr{e de paramitres, 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


é,;"de d{part quelque part dans” 
7,;"la galaxie pour commencer" 
8,"votre mission en tant que” 
9,"Commandant du vaisseau stel-" 
10,"laire:" 

11,"U.S.S. ENTERPRISE." 
13,"Votre mission est de rep{rer 


14,"et de d{truire la flotte des 
15,"vaisseaux de guerre KLINGONS 
1é,"qui menace la F{d{tration des 


17,"Plandtes Unies." 

19,"7. Vous disposerez, en tant" 
20,"que Commandant de bord, des" 
21,"commandes suivantes:" 

20 

1,"#%#x NAU ###" 

2,"Controle des moteurs WARP" 
3," LI 
5,"La route numtrique" 
6,"correspond au 090" 
7,;"diagramme ci- 135 | 045" 
8,"contre. L'URL 

Va Kb 
10,"La puissance L 7 du 
11,"des moteurs  180_____+____000 


12,"WARP d{pend FN? 
13,"de la distance F Hu 
14,"3 parcourir; #. Won 
15,"ainsi, pour 225 | 310" 
ié,"aller du qua- 270" 
17,"drant 6-5, sec-" 

18,"teur 2-3, au quadrant 4-5," 
19,"secteur 4-3, il vous faudra" 
20,"prendre la route 90 avec un" 
21,"#facteur WARP de 1.8 ..." 

18 

1,"*xxx SRS xxx" 

2,"Exploration à faible port{e" 
2.° . 
5,"Vous montre le balayage de" 


DATA 6,"votre quadrant actuel." 

DATA 7,"Les symboles sur l1’{cran de” 
DATA 8,"votre d{tecteur sont:" 

DATA 10," - E Position de votre" 


DATA 11," 


Vaisseau Stellaire," 


DATA 12," - K Croiseur de bataille" 


KLINGON, * : 
Starbase f{d{trale" 
(ravitaillement, rar 


lé," mement, r{parations), 


17," = #4 Etoite.’ 

19,"Un rapport de situation" 
20,"abrg{ vous sera {aqalement”" 
21,"transmis." 

19 

1,"#xx LRS xxx" 

2,"Exploration 24 lonque port{e" 
3," " 
9,;"D{crit l’espace dans les” 
6é,"quadrants entourant 1‘ENTER- 


7,"PRISE (qui est au centre de” 
8,"la zone balay{e)." 

9,"Cet {tat est cod{ sous 1a" 
10,"forme ‘###°, o° le chiffre” 
11,"des unit{s indique le nombr 


12,"d’{toiles, celui des dizai- 
13,"nes le nombre de Starbases, 
14,"et le chiffre des centaines 


15,"repr{isente le nombre de” 
16,"vaisseaux KLINGONS." 
18,"Par exemple, ‘207’ indique 


17,"KLINGONS, pas de Starbases" 
20,"et 7 {toiles dans le qua-" 
21,"drant concernt."” 

12 

1,"x*xxx PHA xxx" 

2,"Controle des phasers" 

33° Li 
6,"Vous permet de d{truire les” 
7,;"croiseurs de bataille des” 
8,"KLINGONS en les cinglant* 
9,"d’une quantit{ d’{nergie" 
10,"suffisante pour faire s’ef- 


11,"fondrer leur {cran de force 
14,"N’oubliez pas: les KLINGONS 


15,"poss}dent, eux aussi, des” 
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16,"phasers !!1,,." 

20 

1,"#xx TOR **#" 

2,"Controle des torpilles" 
3,"photoniques" 

MES el ar 40 

6,"La route torpille est celle" 
7,;"d{finie par le controle des” 
8,"UWARP's. Si le vaisseau KLIN- 


9,"GON est touch©, il est d{-" 
10,"truit et ne peut riposter." 
11,"Si vous le manquez, vous" 
12,"pouvez etre soumis au tir d 


13,"ses phasers. De toute falon 


14,"vous pouvez recevoir le tir 


15,"phaser de tous les autres" 
16,"KLINGONS pr{sents dans le" 
17,"quadrant." 

19,"La librairie-ordinateur pos 


20,"s}de une option qui calcule 
21,"pour vous la trajectoire de 


22,"torpilles." 

11 

1,"xxx SHE *xx+*"° 

2,"Controle de l’{cran” 

3," . 
6,"D{finit le nombre d’unit{s” 
7,;"d’{nergie affect(es aux" 
8,"{crans. L’{nergie est prise" 
9,"sur l’{nergie totale du” 
10,"Vaisseau." 

13,"Notez: l’affichage de 1’{ta 


14,"{nerag{ttique total englobe" 
15,"l’{nergie des {crans." 

10 

1,"+#x DAM *x#+" 

2,"Compte-rendu d’avaries" 

3 Li] 
6é,"Donne 1’{tat de r{paration” 
7,"des difftrents {quipements" 
8,"de l’ENTERPRISE." 

11,"Un {tat de r{paration ntga- 
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12,"tif indique que l’installa- 
13,"tion est provisoirement hor 


14,"service." 

18 

1,"*#%x COM *#xx° 
2,"Librairie-ordinateur" 

a,” . 

5,"La librairie-ordinateur con- 


é,;"tient 7 options:" 
8,"Option 0: Rappel des options 


‘27 disponibles." 

11,"Option 1: Enregistrement" 
12,” galactique cumul{. Montr 
13," l’enregistrement des r{- 


14," sultats de toutes les ex 


LP plorations pass(es par" 
16," senseurs 2 courte et lon 


17," que port{e.” 
19,"Option 2: Rapport de situa- 


20," tion. Donne la Stardate, 
“+ Ph les KLINGONS et les Star 


22," bases restant en jeu." 
15 

1,"xxx COM xxx° 
2,"Librairie-ordinateur" 

3, RIRE TES TOR, 
5,"Option 3: Donntes pour les" 
6," torpilles photoniques." 
2 Calcule les directions et 


8," distances de 1’ENTERPRISE 
#0 vers tous les KLINGONS du 


10" quadrant." 
12,"Option 4: Donntes de naviga 


13," tion vers les Starbases. 


44," Calcule la direction et" 
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42 


13." la distance de 1’ENTER-" 
16,° PRISE vers la Starbase" 
17," du quadrant actuel." 

18 

1,"##x COM x#%" 
2,"Librairie-ordinateur" 

3," Li 
5,"Option 5: Calculs de direc-" 
6," tion-distance. Vous per-" 
7," met d’entrer les coordon- 


8," ntes n{cessäires aux cal- 

5” culs de direction et de" 

10," distance." 

12,"Option é: Carte renseign{e" 

13,° de la galaxie. Indique 1 

14," relation entre les coor- 
donntes Galactiques Car- 


t{siennes et les princi- 


pales r{gions de la” 
Galaxie mentionntes dans 


+ db le jeu (ainsi que montr{ 


20," ci-apr}s)." 

21 

1," NOMENCLATURE GALACTIQUE" 

Pi . 

4," 1 OM 56 "7 D 
Pi ” 
6,"11 ANTARES SIRIUS 


PV ANTE RER NE FE IT EETUINI 


8,"21 RIGEL | DENEB Ù 


25" VE HU HEE AVE FIL LEE 


10,"31 PROCYON | CAPELLA 
fie" POINTER ME 17 FEI 2 
12,"41 VEGA | BETELGEUSE 


20-008 PEUITE PA E EF 


2580 DATA 14,"51  CANOPUS | ALDEBARAN 
Fe 

2590 DATA 15," 1! TI II III IUI I 11 111 JV 
li 

2600 DATA i6,"él 
}" 

2610 DATA 17," 1 1 11 11H IVI J 11 111 1V 
pe 

2620 DATA 18,"71 SAGITTAIRE |  ARCTURUS 
j" 

2630 DATA 19," 1 1 11 111 IVI I 11 111 IV 
le 

2640 DATA 20,"81 
les 

2650 DATA 21," 1 1 11 113 IVI I 11 11] IV 
j" 

2660 DATA 22," 

2670 CALL CLEÂAR :: CALL MINUS :: GOSUB 28 
00 

2680 DISPLAY AT(22,1):"Voulez-vous les r} 
gles du":"jeu (O,N):" 

2690 ÂACCEPT AT(23,12)VALIDATE("ONon")SI2E 
(—-1)BEEP :YN$ 

2700 IF YN$="o" OR YN$="n" THEN DISPLAY À 

T(24,1)BEEP:"Passez en ALPHA LOCK s.v.p 
." :: GOTO 2690 

2710 IF YN$="N" THEN 2790 ELSE 1F YN$<()>"0 
" THEN 2690 

2720 RESTORE 180 :: READ NBR 

2730 FOR J=1 TO NBR :: CALL CLEAR :: CALL 
SCREEN(13):: FOR 2C=0 TO 12 :: CALL CO 

LOR(2ZC,1,1):: NEXT 2C :: READ AFF 

2740 FOR 1=1 TO AFF :: READ ROW,A$ :: DIS 

PLAY AT(ROW,1):A$ :: NEXT 1 

2750 DISPLAY AT(1,26):J :: DISPLAY AT(23, 
1)BEEP :RPT$("_",28); "TAPEZ ‘ENTER’ POUR 
CONTINUER" 

2760 FOR 2C=0 TO 12 :: CALL COLOR(ZC,12,1 
)s:: NEXT 2C 

2770 CALL KEY(O,K,S):: IF S=0 THEN 2770 

2780 NEXT J :: CALL CLEAR 

2790 RUN "DSK1.STAR2" 

2800 DISPLAY AT(6,9) :RPT$("_",11) : TAB(8) ; 
{SUPER )>":TAB(9);RPTS("_",11) 

2810 DISPLAY AT(11,5) :RPT$("_",19) :TAB(4) 
"'ÉSTAR TRE K >'":TAB(S):;RPTS(" 
",19):: RETURN 

2820 SUB MINUS 

2830 DATA 37,00444C183046444 

2840 DATA 39,0008102 


ALTAIR |  REGULUS 


POLLUX l L'EPI 
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DATA 43,10101010FF10101 
DATA 47,010204081020408 
DATA 64,20100038484834 
DATA 91,000000384040381 
DATA 92,8040201008040201 
DATA 95,00000000FF 

DATA 96,00100804 

DATA 97,00000038484834 
DATA 98,0040407048483 
DATA 99,00000038404038 
DATA 100 ,00080838484834 
DATA 101,000018243C2018 
DATA 102,0018282038202 
DATA 103,000038484838083 
DATA 104,00202038242424 
DATA 105,00100030101038 
DATA 106,001000301010502 
DATA 107,00404050605048 
DATA 108,00301010101038 
DATA 109,0000006€545454 
DATA 110,00000078484848 
DATA 111,0000003048483 
DATA 112,000000704848704 
DATA 113,00000038484C3808 
DATA 114,0000002830202 
DATA 115,0000182038083 
DATA 116,00101038101018 
DATA 117,00000048484834 
DATA 118,0000002424281 
DATA 119,00000044545428 
DATA 120,00000028102828 
DATA 121,000000484830102 
DATA 122,00000038102038 
DATA 123,1020304878403 
DATA 124,101010101010101 
DATA 125,2010304878403 
DATA 126,20100048484834 
DATA 0 

RESTORE 2830 

READ 20 :: 1F Z0{>0 THEN READ 2$ :: 
CHAR(20,2$%):: GOTO 3240 
SUBEND 


LOHARXERRHEEMARAEERREREERX 
| + STARTREK * 
LOXAMERAERARERRERREREEEX 
IR Seconde Partie * 
LOHRAXEREEREERREREEERERX 
Le : Basic Etendu + 
LOHRRXERARERRENEERERERERX 
STOP 


180 OPTION BASE 1 
190 RANDOMIZE 

200 ON WARNING NEXT 
210 !==—=—— 
220 '=initialisations= 

230 ! SEE E 

240 'ecran 

250 CALL CHAR(128,"000000FFFF"):: CALL CO 
LOR(13,13,8):: CALL CHARPAT(95,A$):: IF 
%="00000000FF000000" THEN 320 

260 CALL CHAR(é64,"00000038447C4444"):: CA 
LL CHAR(91,"0000003C4040403C"):: CALL C 
HAR(95,"00000000FF") 

270 CALL CHAR(123,"0000007C4078407C101010 
10101010100000007C4078407C") 

280 DISPLAY AT(7,9)ERASE ALL:RPT$("_",11) 
:TAB(8);" SUPER )":TAB(9) ;RPT$("_" 
511) 

290 DISPLAY AT(11,5) :RPT$#("_",19) : TAB(4); 
"{STAR. TREK }":TAB(S)3;RPT$("_" 
519) 

300 DISPLAY AT(16,5):"PATIENTEZ UN INSTAN 
qe 

310 !'variables 

320 DIM 6(8,8),K(3,3),2(8,8) ,D(8) 

330 !'6(8,8)=description des quadrants;2(8 
,8)=quadrants visualises 

340 'K(3,3)=description des Klingons du q 
uadrant:1 = 1,2,3 pour chaque Klingon; 
J=1:ordonnee; J=2:abscisse; J=3:energie 
350 'D(8)=etat equipements 

360 LIG=11 !'ligne d’affichage 

370 VIT=I 'uitesse des messages 

380 ÀA1$="NAUSRSLRSPHAT ORDAMSHECOMXXX * 

390 T,TO=INT(RND*20+2100)'T0=date debut; 
T=date actuelle 

400 T9=25+INT(RND*#10) 'T?=duree de jeu 

410 E,E0=3000 'E0=energie totale; E=energ 
ie actuelle 

420 D0=0 'D0=indicateur d’entree en radou 
b 

430 P,P0=10 'PO=torpilles totales; P=torp 
illes actuelles 

440 S=0 !'S=energie ecran 
450 FOR 1=1 TO 8 :: D(I1)=0 
8 :: 2(1,J)=0 :: RI=RND :: 
460 IF R1}>.98 THEN K3=K3+1 
470 1F R1».95 THEN K3=K3+1 
480 IF R1)>.80 THEN K3=K3+1 
490 K9=K9+K3 :: B3=0 :: IF RND).96 THEN B 
3=1 :: B9=B9+1 


:1: FOR J=1 TO 
K3=0 





500 G(I,J)=K3*100+B3*x10+INT(RND*x8+1):: NE 

XT J :: NEXT 1 IF K9)2T9 THEN T9=K9+1 

910 QI=INT(RND*x8+1):: Q2=INT(RNDx8+1):: S 

1=INT(RND*8+1):: S2=INT(RND#8+1) 

520 'Qi,Si=ordonnee Enterprise 

930 'Q2,S2=abscisse Enterprise 

540 IF B9<>0 THEN 600 

990 1F 6(@1,02)<(200 THEN G(Q1,02)=6G(@1,0@2 
+100 K9=K9+1 

960 B9=1 :: G(Q1,Q2)=6(0Q1,02)+10 :: GI=IN 

TCRND*8+1):: Q2=INT(RND#8+1) 

370 == ——— 

580 !=fin d’init.= 

590 ! 

600 K7=K9 :: FOR 1=1 TO 12 
stat) NEXT F-213 

LSE X$="s" 

610 DISPLAY AT(2,1)BEEP ERASE ALL:"VOICI 

VOS ORDRES" :RPT$("_",16) 

620 DISPLAY AT(5,3):"D{truisez les";K9;"uv 
aisseaux":" de guerre KLINGON qui ont" 

:" envahi la Galaxie avant" 

630 DISPLAY AT(8,3):"qu’ils n’attaquent 1 
e Q.6G.":" de la F{dtration 9 la":" St 

ardate";T0+T9;"; ceci vous" 

640 DISPLAY AT(11,3):"laisse";T9;" jours. 
I1 y a";B9:" Starbase'";X$;" dans la Ga 
laxie":" pour ravitailler le Vais-" 

650 DISPLAY AT(14,3):"seau":"":TAB(7) ;"U. 
S.S. ENTERPRISE" :: CALL HCHAR(18,3,128 

, 28) 

660 DISPLAY AT(20,1):"Etes-vous pret à pr 
endre le":"Commandement? 0" :: CALL HCH 

AR(23,3,128,28) 

670 CALL HCHAR(1,3,128,28):: FOR I1=1 TO 1 
2 :: CALL COLOR(1,2,1):: NEXT I :: CALL 
COLOR(3,9,1,4,9,1) 

680 ACCEPT AT(21,15)VALIDATE("0")SIZE(-1) 
:REP$ 

690 CALL CLEAR :: CALL COLOR(3,2,1,4,2,1) 
:: CALL HCHAR(10,3,128,28) 

700 D4=RND/2 :: 2(01,Q2)=G(Q1,02):: SRS=1I 
710 IF TOC)T THEN CALL RAZ(1,9):: DISPLAY 
AT(2,1):"Vous entrez dans le quadrant” 

:: GOTO 730 
720 DISPLAY AT(I,1):"Votre mission commen 
ce avec":"le vaisseau dans le quadrant" 
730 CALL SITU(G1,02,G$):: DISPLAY AT(3,1) 
BEEP:"galactique:":TAB(14-LEN(G$)/2) ;G$ 
740 K3=INT(G(Q1 ,02)/100):: B3=INT(G(Q1 ,Q2 
)/10)-10%K3 :: S3=6G(Q1,Q02)-100*K3-10+*B3 

:: CALL COND(K3,5S) 


.. 
CR 


:: CALL COLOR( 
IF B9=1 THEN X$="" E 


750 'mise en place Enterprise 

760 Q$=RPT$(" ",é64):: CALL SETSECT(S1,S2, 
Q$ ,"E") 

770 ‘mise en place Klingons 

780 FOR I=1 TO 3 :: FOR J=1 TO 3 :: 
2=0 :: NEXT J :: NEXT I :: 
820 

790 FOR 1=1 TO K3 :: CALL ALLOC(K(I,1) ,K{ 
1,2),@$):: CALL SETSECT{K(1,1),K(1,2),Q 

S,"K"3 

800 K(1,3)=INT(200%(,5+RND)):: NEXT 1 

810 'mise en place starbase 

820 IF B3<)>0 THEN CALL ALLOC(B4,B5,G@$) :: 
CALL SETSECT(B4,B5,0$,"B") 

830 mise en place etoiles 

840 FOR I1=1 TO S3 :: CALL ALLOC(RI ,R2,0$) 
1: CALL SETSECT(RI ,R2,0$,"*x"):: NEXT 1 
850 IF SRS=0 THEN 870 

860 GOSUB 2980 

870 IF S+E)10 THEN IF E>10 OR D(7)=0 THEN 
940 

880 TXT$="#*xx ERREUR FÂTALE ##%# Vous ven 

ez d’echouer votre Vaisseau dans l’Espa 

ce. L’{nergie est trop faible" 

890 TXT$#=TXT$&" pour maneuvrer et le cont 

role d’{cran ne peut commuter vers la s 

alle propulseurs .,." 

900 CALL BANDECTXTS$,VIT):: GOTO 2860 

920 '=boucle de commande= 

940 CALL RAZ(24,24):: DISPLAY AT(23,1):"V 

OTRE COMMANDE : " 

950 ACCEPT AT(23,17)VALIDATEXLUALPHA)SIZ2E( 

—3)BEEP:REP$ :: IF LEN(REP$)()3 THEN 10 

00 

960 I=INT((POS(AÏS,REP$,1)+2)/3):: ON 1+1 
GOTO 1000,1070,860,1680 ,1800,2040 ,2460 
,2350,3220 ,2860 


KCI,J 
IF K3=0 THEN 


780 


l=commande invalide= 
990 ! TESTER SES 
1000 TXT$="Entrez l’une des commandes sui 
vantes: ” 

1010 TXTS=TXT$&".,, NAU  .., 


SRS 
RO et DAM 
SHE 
1020 
1030 
1040 !'=calculs de= 
1050 !'=navigation= 
1060 ! 


PHA .. TOR ... 
.. COM ... XX ont 
CALL BANDE(TXT$ ,UIT):: GOTO 870 
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1070 DISPLAY AT(24,1):"Route (0-360):" 
1080 ACCEPT AT(24,16)UVALIDATE(DIGIT)SIZE( 

3)BEEP:Ci IF Ci<=360 THEN 1100 

1090 TXT$="Erreur dans les donntes de nav 
igation, COMMANDANT ..." CALL BANDE 

TXT$,VIT):: GOTO 870 

1100 1F D(1)<0 THEN X$="0.2" ELSE X$="8" 
1110 DISPLAY AT(24,1):"Facteur WARP (0-*; 

X$3;"):" :: ACCEPT AT(24,20+LEN(X#) )UVALI 

DATE{NUMERI C)BEEP :Wi 

1120 ON SGN(WI)+2 GOTO 1090,870,1130 

1130 IF D(1)>=0 THEN 1160 ELSE IF Wi<=.2 

THEN 1160 

1140 TXT$="Avarie des moteurs WARP. La vi 
tesse maximum est WARP 0.2 ..." 3: CALL 
BANDE{TXTS$,VIT):: GOTO 870 

1150 ‘parametres de nav O.K. 

1160 NNEINT(W1#8+.5):: IF E-NN)>=0 THEN 12 

20 

1170 TXT$="" SALLE MACHINES’: Energie disp 
onible insuffisante pour maneuvrer à WA 

RP "&STRS(WI)&" .,,." 

1180 CALL BANDE(TXTS$,VIT):: IF S{NN-E OR 
D(7)<0 THEN 870 

1190 TXT$=" CONTROLE DEFLECTEURS’ rend co 

mpte: "&STR$(S)&" units {nergttiques a 
ctuellement affect{es * 

1200 TXT$=TXT$&" aux {crans ..." 

ANDE(TXT$ ,UIT):: GOTO 870 

1210 mouvement des Klingons 
1220 FOR 1=1 TO 3 IF K(1,3)=0 THEN 124 
0 

1230 CALL SETSECT(K(I,1),KC1,2),@$," "):: 
CALL ALLOC(K(I1,1),K(1,2),Q@$):: CALL SE 

TSECT(K(1,1),K(1,2),0$,"K") 

1240 NEXT 1 :: GOSUB 2650 

1250 'gestion des avaries existantes 

1260 1F Wi)2=1 THEN Dé=1 ELSE Dé=Wi 

1270 D1=0 :: FOR I=1 TO 8 IF D(1)>=0 T 
HEN 1320 

1280 D(I1)=D(1)+D6 :: 1F DCI1)2-.1 AND D(I) 
{O THEN D(1)=-.1 

1290 1F D(I1)<0 THEN 1320 

1300 Di=Di+i 1F Di=i THEN TXT$=""CONTR 
OLE AVARIES’ rend compte: Riparations * 
ELSE TXT$=TXT$8&", ” 

1310 CALL MATER(I,G$):: TXTS=TXT$&GS 

1320 NEXT 1 :: IF D1<>0 THEN TXT$=TXT#$&" 
termintes ..." :: CALL BANDECTXTS$,UIT) 
1330 'nouvelles avaries 

1340 1F RND>.2 THEN 1400 

1350 RI=INT(RND*x8+1):: TXT$=" "CONTROLE AV 


CALL B 
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ARIES”’ rend compte: " :: CALL MATER(RI, 
G$):: IF RND)=.6 THEN 1370 

1360 D(RI)=D(RI)-CRND4X5+1):: TXTS=TXTSEGS 
&" endommag{ ..." :: GOTO 1380 

1370 D(RI)=D(RI)+RNDEX3+1 :: TXTS=TXTS&R "UE 
rifications "&G$&" effectutes ..." 

1380 CALL BANDECTXTS ,VIT) 

1390 'navigation 

1400 CALL SETSECT(S1,S2,Q$," ") 

1410 X=-SINCCI1*P1/180):: Y=COS(C1*P1/180) 
:: Q4=Q1 G5=Q2 :: X5=0 

1420 FOR I=1 TO NN S1=S1+X :: S2=52+Y 
1430 1F INT(S1+,.5)41 THEN IF Qizi THEN X5 

=] S1=S1-X ELSE X5=2 Q1=QG1-1 
1=51+8 

1440 IF INT(Si+.5)>8 THEN IF Gi=8 THEN X5 

=1 :: Si=Si-X ELSE X5=2 :: QGi1=Q1+1 
1=51-8 

1450 IF INT(S2+.5)<41 THEN IF Q2=1 THEN X5 

=i S2=5S2-Y ELSE X5=2 Q2=Q2-1 :: S 
2=52+8 

1460 1F INT(S2+.5))8 THEN 1F Q2=8 THEN X5 

=] :: S2=S2-Y ELSE X5=2 :: Q2=02+1 :: S 
2=52-8 

1470 !'DISPLAY ÀAT(24,1)BEEP:"Quadrant";Qi; 

Q2;"/ Secteur"; INT(S1+.5);INT(S2+.5):: 

CALL DELAI 

1480 ON X5+1 GOTO 1530,1490,1570 

1490 TXT$=" "SALLE RADIO’ rend compte mess 

age COMMANDANT Flotte Stellaire: Autori 

sation franchir limites " 

1500 TXT$=TXT$#&" Galaxie est express(ment 

refuste. Coupez vos moteurs ..." 3: CAL 

L BANDECTXTS$ VIT) 

1510 TXT$=" SALLE MACHINES’ rend compte: 

Moteurs WARP coup{s dans le secteur " 
1520 TXT$=TXTSESTRECINT(S1+,5))&","&STRS( 
INT(S2+.5))&" du quadrant "&STR$(Q1)&", 
"&STR$(Q2)8&" :: GOTO 1560 

1530 CALL TEST(INT(S1+.5) ,INT(S2+.5),0$," 
",23):: 1F 23=1 THEN 1570 

1540 S1=S1-X :: S2=S2-Y :: TXT$="Moteurs 

WARP arrêts dans le secteur "&STR$ÇINT 

(61+.3))2&°" , ” 

1550 TXT$=TXTSESTRS(INT(S2+,5))&" 

auvaise navigation ..." 

1560 CALL BANDE(TXTS$,VIT):: I=NN 

1570 NEXT I :: SI=INT(S1+.5):: S2=INT(S2+ 
3) 

1580 1F Wi)}=1 THEN T=T+1 ELSE T=T+INT(10% 

W1)/10 

1590 IF T)T0+T9 THEN 2860 


cause m 
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1600 E=E-NN-10 :: IF E)=0 THEN 1630 

1610 TXT$=" "CONTROLE ECRANS’ fournit {ner 

gie n{cessaire pour achever la maneuvre 
..." 1: CALL BANDECTXT$ ,UIT) 

1620 S=S+E :: E=0 :: IF S(=0 THEN S=0 
1630 IF 8*G1+Q2{>8*04+Q5 THEN 700 ELSE CA 

LL SETSECT(S1,S2,0$,"E"):: GOTO 850 

1640 ! 
1650 '=detection longue= 

1é60 != distance = 

\é0 =D 

1680 IF D(3)<{0 THEN TXT$="DETECTEURS LONG 

UE PORTEE **xhors service**#*" :: CALL B 

ANDE(TXT$,VIT):: GOTO 870 

1690 SRS=0 :: CALL RAZ(LIG,LIG+11) 

1700 DISPLAY AT{LIG,2) :"EXPLORATION LONGU 

E DISTANCE":" À PARTIR DU QUADRANT" ; Qi; 
°s"302:" "yRPTS(" _",26) 

1710 FOR J=Q2-t TO Q2+1 :: IF J)>0 AND J{9 
THEN DISPLAY AT(LIG+3,6*x(J-Q2+2)+1):J 
1720 NEXT J :: DISPLAY AT(LIG+4,5) :RPT$(" 

SES 

1730 FOR 1=Q1-1 TO Gi+1 :: X=LIG+3+(1-G1+ 
2)#2 :: IF 1>0 AND 149 THEN DISPLAY AT( 

X,3):1 

1740 FOR J=G2-1 TO Q2+1 :: Y=é*x(J-Q2+2)-1 
1750 IF 1{1 OR 128 OR J{1 OR J>8 THEN À$= 
"##x" ELSE 2(1,J)=G(I1,J):: A$=SEG$(STRS 
(G(1,J)+1000),2,3) 

1760 DISPLAY AT(X,YD:"1 "&Â$ :: NEXT J :: 
DISPLAY AT(X,23):" 1" :TAB(S) ;RPT$("_" ,1 
9):: NEXT I :: GOTO 850 

1770 = — 


1780 !'=tir des phasers= 
1800 IF D(4)<{0 THEN TXT$="Controle 


PHASER 

S ***hors service*xx*x" :: GOTO 1820 ELSE 
IF K3)>0 THEN 1830 

1810 TXT$=" *RESP. SCIENT.’ rend compte: P 

as de vaisseaux ennemis d{tect{s dans c 

‘e quadrant ..." 

1820 CALL BANDE(TXT$,VIT):: GOTO 870 

1830 IF D(8)(0 THEN TXT$="Avarie ordinate 

ur diminue prcision ..." :: CALL BANDE 
CTXTS ,VIT) 

1840 TXT$=" PHASERS verrouill{s sur 1’obje 

ctif ..." :: CALL BANDE(CTXTS,UVIT) 

1850 TXT$="L’{nergie disponible est de "& 

STR$(E)&" units ..." :: CALL BANDECTXT 

$,VIT) 

1860 DISPLAY AT(23,1):"Nombre d’unit{s:" 
:: ACCEPT AT(23,18)VALIDATE(DIGIT)BEEP: 
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X :: IF X=0 THEN 870 

1870 IF E-X<0 THEN 1850 

1880 E=E-X :: IF D(7)<0 THEN X=X*RND 

1890 X=INT{X/K3) :: FOR 1=1 TO 3 :: IF K{I 
,3)<=0 THEN 1990 

1900 H=INT(X/SQGR((K(I,1)-S1)°2+(K(1,2)-SZ 
)*2)#(RND+2)):: IF H)>.15%xK{1,3)THEN 193 

0 

1910 TXT$="SENSEURS: pas d’avaries sur 1’ 

ennemi en "&STR$(K(I,1))&" , "&STR$&(K(I 
2 NT Le 

1920 CALL BANDECTXTS$,VIT):: 
1930 K(1,3)=K{1,3)-H 

1940 TXT$=STR$(H)&" unit{s frappent le KL 
INGON du secteur "&STR$(K(I1,1)2)&" , "&S 

TR$CK(1,2))&" ,..." :: CALL BANDECTXTS,UVIT 
) 

1950 IF K(1,3)<=0 THEN TXT$="#*#x*x KLINGON 

dtruit #*%*%#" :: CALL BANDECTXTS,UIT):: 

GOTO 1970 

1960 TXT$="Les senseurs montrent qu’il lu 
i reste "&STR$(K(I1,3))&" units ..." :: 
CALL BANDECTXTS$,VIT):: GOTO 1990 

1970 K3=K3-1 :: K9=K9-1 :: CALL SETSECT(K 
C1,12,K(1,2),08," ") 

1980 K(1,3)=0 :: G(Q1,Q2)=6(@1,02)-100 :: 
2(01,Q2)=6(G1,Q2):: 1F K9<=0 THEN 2800 
1990 NEXT I :: GOSUB 2650 :: CALL COND(K3 

,55):: GOTO 850 

2000 === 

2010 != torpilles = 

2020 '=photoniques= 

2030 ! 

2040 IF P<=0 THEN TXT$="TORPILLES PHOTONI 
QUES toutes d{penstes .,.." :: CALL BAND 
ECTXT$,VIT):: GOTO 870 

2050 IF D{(5)<0 THEN TXT$="Tubes photoniqu 
es **xhors service*x##" :: CALL BANDE(TX 
T$,VIT):: GOTO 870 

2060 DISPLAY AT(24,1):"Route Torpille (0- 
360) :" 

2070 ACCEPT AT(24,24)VALIDATE(DIGIT)SIZEX 
3)BEEP:C1 :: 1F Ci<=360 THEN 2090 

2080 TXT$="Paramdtre non valable, Command 
ant ! ..." :: CALL BANDECTXT$,VIT):: GO 
TO 870 

2090 X1=-SIN(CI*P1/180):: X2=COS(CI*xP1/18 
Os: E=E-2 3: P=P-1 2: X=S1 :: Y=52 

2100 DISPLAY AT(24,1):"Trajectoire torp.: 
2110 X=X+X1 
3=INT(Y+.5) 


GOTO 1990 


55 Y=Y+X2 :: X3=INT(X+.5):: YŸ 
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2120 IF X3<1 OR X3>8 OUR Y3<i OR Y3>8 THEN 
2310 

2130 DISPLAY AT(24,20)BEEP:X3;","3Y3 :: C 

ALL DELAI :: CALL TEST(X3,Y3,0$," ",23) 
:: IF 2320 THEN 2110 

2140 CALL TEST(X3,Y3,0$,"K",23):: IF 23=0 
THEN 2190 

2150 TXT$="*#x*x KLINGON dtruit *%*%#" :: CA 

LL BANDECTXTS$,VIT):: K3=K3-1 :: K9=K9-1 
:: IF K9<=0 THEN 2800 

2160 FOR 1=1 TO 3 :: IF X3=K(I1,1)AND Y3=K 
(1,2)THEN 2180 

2170 NEXT 1 :: 1=3 

2180 K(1,3)=0 :: GOTO 2290 

2190 CALL TEST(X3,Y3,0$,"*",23):: IF 23=0 

THEN 2220 | 




























2200 TXT$="L'{toile en "&STR$(X3)&" , "&S 

TR$#(Y3)&" a annul{ l’{nergie de la torp 
ille ..." :: CALL BANDE(TXT$ ,VIT) 

2210 GOSUB 2650 :: GOTO 870 

2220 CALL TEST(X3,Y3,0$,"B",23):: 
THEN 2060 

2230 TXT$="*#x STARBASE d{truite %*%x%" :: 

CALL BANDE(TXTS,UVIT):: B3=B3-1 :: B9=B9 
-{ 

2240 1F B9>0 OR K9)T-T0O-T9 THEN 2270 

2250 TXT$="Ca suffira !! Vous etes relev{ 
de votre commandement et condamn{ à 99 
starjours de travaux forc{s * 

2260 TXT$=TXT$&" sur CYGNUS 12 ..." :: 

L BANDE(TXTS$,VIT):: GOTO 2870 

2270 TXT$="Commandement Flotte Stellaire 
revoit votre dossier et envisage cour m 
artiale ” 

2280 CALL BANDE(TXTS$,VIT):: DO=0 

2290 CALL SETSECT(X3,Y3,0$," ") 

2300 Z(Q1,0Q2),6(Q1,Q2)=K3*100+B3*10+S3 :: 
GOSUB 24650 :: CALL COND(K3,S):: GOTO 8 
50 

2310 TXT$="La torpille a manqu{ le but 

." 1: CALL BANDE(TXTS,VIT):: GOSUB 2650 























IF 23=0 




















CAL 




































:: GOTO 870 
2320 === == 
2330 '=enerqgie ecrans= 
2340 === == 





S’ *#xhors servicex**" :: CALL BANDECTX 
T$,VIT):: GOTO 870 

2360 DISPLAY AT(23,1):"Unitts pour les {c 
rans:":"Enerqie disponible:";E+s 


2370 ACCEPT AT(23,25)UALIDATE(DIGIT)SIZE( 
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2350 1F D(7)40 THEN TXT$=" "CONTROLE ECRAN 


4)BEEP:X :: IF S=X THEN TXT$="" :: 
2400 : 

2380 IF X<=S+E THEN 2410 

2390 TXT$="Energie disponible: "&STR$(S+E 
)&" unit£s, " 

2400 TXT$#=TXT$&"Ecrans sans changement .. 
." :: CALL BANDE(TXT$,VIT):: GOTO 870 
2410 E=E+S-X :: S=X :: TXT$=" "CONTROLE DE 
FLECTEURS’ rend compte: Ecrans mis 9 "& 
STR$(INT(S))&" unit{s" 

2420 TXT$=TXT$&" sur votre ordre ..." :: 
CALL BANDECTXTS$,VIT):: CALL COND(K3,5S) : 

: GOTO 850 

2430 
2440 '=rapport d’avaries= 
2450 ! 
2460 IF D(6)}>=0 THEN 2570 

2470 TXT$=" Impossible d’obtenir rapports 
d’avaries ..." :: CALL BANDECTXT$,VIT): 
: 1F D0=0 THEN 870 


GOTO 


EEE ====— 











2480 D3=0 :: FOR 1=1 TO 8 :: IF D(I1)<0 TH 
EN D3=D3+ 1 
2490 NEXT I :: IF D3=0 THEN 870 


2500 D3=D3+D4 :: IF D3>=1 THEN D3=.9 

2510 TXT$="Techniciens prets 8 r{parer vo 

tre Vaisseau ..." :: CALL BANDECTXTS,UI 

T) 

2520 TXT$="Temps de r{iparation estim{ 9 " 

&STRSCINT(10*xD3+5)/10)&" star jours ..." 
:: CALL BANDECTXTS#,VIT) 

2530 DISPLAY AT(23,1):"Autorisation r{par 

ation?" :: ACCEPT AT(23,26)VALIDATE("ON 

")SIZE(1)BEEP:Â$ 

2540 1F A$<)>"0" THEN 870 

2550 FOR 1=1i TO 8 :: IF D(1)(0 THEN D{I)= 

0 

2560 NEXT J :: T=T+D3+,1 

2570 SRS=0 :: CALL RAZ(LIG,LIG+11) 

2580 DISPLAY AT{(LIG,24) : "AVANC" : "ELEMENT" 
; TAB( 24) ; "REPAR" :RPT$("_",28):: FOR I=i 
TO & 

2590 CALL MATER(1,6$%):: DISPLAY AT(LIG+2+ 

1,1):6$;TAB(24) ; INT(D(I1)#100)/100 

2600 NEXT I :: DISPLAY AT(LIG+11,1):RPT$( 

“_",28):: 1F DO()>0 THEN 2480 

2610 GOTO 870 

2620 !======—===— 

2630 

2640 








2650 IF K3<=0 THEN RETURN 
2660 IF D0O{>0 THEN TXT$="ENTERPRISE prott{ 
qe par {crans de la STARBASE ..." :: C 
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ALL BANDECTXTS$ ,VIT):: RETURN 

2670 FOR 1=1 TO 3 :: 1F K(1,3)<=0 THEN 27 
90 

2680 H=INT(K(1,3)/(SGRC(K(I1,1)2-S1)*2+(K(1 
,2)-S2)*2))#(2+RND)):: S=S-H :: K(1,3)= 
K(1,3)/C3+RND) 

2690 TXT$#=STR$(H)&" unit{s frappent 1’ENT 
ERPRISE venant du secteur "&STR$(K(I,1) 
)&" , "&STR$(K(I1,2))&" ... 

2700 CALL BANDE(TXTS$ ,UIT):: IF S<=0 THEN 
2840 

2710 TXT$="Ecrans tomb{s à "&STR$(S)&" 
its ..." :: CALL BANDECTXT$,UIT):: 1F 
H<(20 THEN 2750 

2720 IF RND}.6 OR H/S4{=.02 THEN 2750 
2730 RI=INT(RND#8+1):: DC(R1)=DCR1)-H/S-RN 
D/2 :: CALL MATER(RI ,6%) 

2740 TXT$=" * CONTROLE AVARIES’ signale: "& 
G$&" endommagt par le coup ..." :: CALL 
BANDE(TXTS ,VIT) 

2750 NEXT I RETURN 

2760 ! 

2770 !'=fin de partie= 

2780 ! 

2790 ‘gagne 

2800 CALL CLEAR :: DISPLAY AT(I,1):"FELIC 
ITATIONS, Commandant.":"Le dernier croi 
seur KLINGON" 

2810 DISPLAY AT(3,1):"menalant la F{d(rat 
ion a (t£<°:"d{truit.” 

2820 DISPLAY AT(é,1):"Votre taux d’effica 
cit{ est":"de"; INT(10000%(K7/(T-T0) ) * 2) 

/10;"." :: GOTO 2880 

2830 !'perdu 

2840 CALL RAZ(1,4):: DISPLAY AT(1,1):"L’'E 

NTERPRISE a ©t{ d{truite.":"":"La F€d{r 
ation sera conquise." 

2850 ‘abandon (XX) 

2860 CALL RAZ(5,24):: DISPLAY AT(6,1):"C° 
est le starjour ";STR$(T);"." 

2870 DISPLAY AT(8,1):"I1 y avait encore"; 
K9;"croi-":"seurs de bataille KLINGON 3 
“:"la fin de votre mission." 
2880 IF B9=0 THEN CALL DELAI 
J :: GOTO 2930 

2890 CALL HCHAR(12,3,128,28):: DISPLAY AT 
(13,1):"La Fdtration Galactique":"cher 
che un autre Commandant" 

2900 DISPLAY AT(15,1):"de vaisseau stella 
ire pour'":"une mission similaire,":"":" 
S’il y a un volontaire, que” 


un 


:: CALL DELA 


2910 DISPLAY AT(19,1):"celui-ci sorte des 
rangs et":"frappe ‘DAC’:" :: CALL HCHA 

R(21,3,128,28) 

2920 ACCEPT AT(20,16)VALIDATECUALPHA)SIZE 

(—-3)BEEP:REP$ :: IF REP$="DAC" THEN 390 

2930 CALL CLEAR STOP 

2940 ! 

2950 

2960 

2970 ! 

2980 IF D(2)(0 THEN TXT$="SENSEURS COURTE 
DISTANCE *#*hors servicex*x*xx" :: CALL B 

ANDEXTXTS$,VIT):: RETURN 

2990 FOR 1=Si-1 TO Si+1 :: FOR J=S2-1 TO 

S2+1 :: IF 11 OR 1>8 OR J{1 OR J)>8 THE 

N 3010 

3000 CALL TEST(I1,J,0$,"B",23):: IF 23=1T 

HEN 3020 

3010 NEXT J :: NEXT I :: 

0 

3020 DO=1i 
:: P=P0 

3030 TXT$="Ecrans 23 ZERO pour l’entr£e en 
radoub ..." :: CALL BANDE(TXT$,VIT):: 

S=0 :: GOTO 3060 

3040 1F K3>0 THEN C$="Rouge" ELSE IF E<E0 

/10 THEN C$="Jaune" ELSE C$="Verte" 

3050 C$="Condition "&C$ 

3060 SRS=I :: CALL RAZ(LIG,LIG+11):: DISP 

LAY AT(LIG,3):"SENSEURS COURTE DISTANCE 

° sRPTS(" _°,28) 

3070 FOR 1=1 TO 8 :: DISPLAY AT(LIG+1+1,1 
):STR$S(1);"l"; SEG$SCQ$,(1-1)#8+1,8);"l1" 

3080 ON 1 GOTO 3090,3100,3110,3120,3130,3 

140,3150,3160 

3090 DISPLAY AT{LIG+1+1,12):"Starjour";lN 

T(T#10)/10 :: GOTO 3170 

3100 DISPLAY AT(LIG+1+1,12):C$ :: GOTO 31 

70 

3110 DISPLAY AT(LIG+1+1,12):"Quadrant";Q1 
3",”302 :s: GOTO 3170 

3120 DISPLAY AT{LIG+1+1,12):"Secteur ";Si 
5"," 382 :: 6070 3170 

3130 DISPLAY AT(LIG+1+1,12):"Torp. phot. 

*"sP :: GOTO 3170 

3140 DISPLAY AT{(LIG+1+1,12):"Energie tot. 

":INT(E+S):: GOTO 3170 

3150 DISPLAY AT{LIG+1+1,12):"dont {crans 

":INT(S):: GOTO 3170 

3160 DISPLAY AT{LIG+1+1,13):"=" 

ONS =" 


detecteurs 
lzcourte distance= 


DO=0 :: GOTO 304 


:: C$="Entr{ au Bassin" :: E=E0 


3K9 3; "KLING 
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3170 NEXT 1 :: DISPLAY AT(LIG+10,1) :RPT$( 





"_",28):" 1123456781" :: RETURN 
3180 ! 

3190 '=librairie = 

3200 '=ordinateur= 








3210 —=—— 
3220 1F D(8){0 THEN TXT$="ORDINATEUR *##h 

ors service**#" :: CALL BANDE(TXTS$,UIT) 
:: GOTO 870 

3230 DISPLAY AT(23,1):"COMMANDE ORDINATEU 

R:° 

3240 ACCEPT AT(23,22)VALIDATE(DIGIT)SIZE( 
1)BEEP:À :: IF À)é THEN 870 

3250 SRS=0 :: CALL RAZ(LIG,LIG+11):: ON À 

+1 GOTO 3270,3350,3440,3530,3670,3580,3 

330 

3260 !'commandes ordinateur (COM-0) 

3270 DISPLAY AT(LIG,4):"FONCTIONS DISPONI 

BLES" :RPT$#("_",28) 

3280 DISPLAY AT{(LIG+2,1):"0= Commandes Or 

dinateur":"i1= Enreg. galactique cumul{" 

3290 DISPLAY AT(LIG+4,1):"2= Rapport de 5 
ituation":"3= Donntes pour torp. phot." 

3300 DISPLAY AT(LIG+6,1):"4= Donntes Nav. 
-) Starbase":"5= Calcul Direction-Dist 

ance" 

3310 

gn£te 

3320 

3330 

3340 

1) 

3350 H8=1 

3360 DISPLAY AT{LIG,4):"1 
7 8":TAB(3) ;RPT$#("_",24) 

3370 FOR 1=1 TO 8 :: DISPLAY AT(LIG+1+1,1 
):STR$(1):;"1" :: IF H8=0 THEN 3400 

3380 FOR J=1 TO 8 :: 1F 2(1,J)=0 THEN ÀA$= 
"—--" ELSE A$=SEGS$(STR$(Z(1,J)+1000),2, 

3) 

3390 DISPLAY AT{LIG+1+1,J%3):ÂA$ :: NEXT J 
:: GOTO 3420 

3400 CALL SITU(1,1,G#):: G$=SEG$(6$,1,POS 
(G$," ",1)-1):: DISPLAY AT(LIG+1+1,INT( 
9-(LEN(G$)-1)/2)):G$;TAB(14);"11" 

3410 CALL SITU(1,5,6G$):: G$=SEG$(6$,1,P0S 
(6$," ",1)2-1)2:: DISPLAY AT(LIG+1+1,INT( 

21-(LEN(G#)-1)/2)):6$ 

3420 DISPLAY AT(LIG+1+1,27):"1" 


DISPLAY AT{LIG+8,1):"é6= Carte rensei 
Galaxie":RPT$("_",28):: GOTO 3230 
lla galaxie (COM-6) 

H8=0 :: GOTO 3360 

icarte renseignee de la galaxie (COM 


2 3 4 5 6 


:: NEXT 1 


5: DISPLAY AT(LIG+10,3) :RPT$("_",24):: 
GOTO 870 
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3430 ‘rapport de situation (COM-2) 

3440 DISPLAY AT(LIG,5):"RAPPORT DE SITUAT 
ION" : TAB(5) ;RPT$("_",20) 

3450 IF K9)1 THEN X$="S" ELSE X$="" 

3460 DISPLAY AT(LIG+3,1):"I11 reste" ;K9;"K 
LINGON" ;X$;" et"; INT((TO+T9-T)#10)/10:" 
Star jours pour accomplir vo-tre mission." 
3470 IF B9{1 THEN 3490 ELSE IF B9=1 THEN 
X$="" ELSE X$="s" 

3480 DISPLAY AT(LIG+7,1):"La F{d{tration m 
aintient";B9:"Starbase";X$;" dans la Ga 
laxie." GOTO 3500 

3490 DISPLAY AT(LIG+7,1):"Votre b{tise vo 
us à livri 9 vous-meme dans la Galaxie. 
“:" ":"Vous n’avez plus de Starbases!" 
3500 DISPLAY AT(LIG+11,1):RPT$("_",28) 
3510 TXT$="Tapez une touche pour la suite 
:: CALL' BANDECTXTS$,UIT):: GOTO 24 


60 
3520 ‘donnees pour torpilles photoniques 
(COM-4) 

3530 IF K3=0 THEN 1810 ELSE 1F K3=1 THEN 
X$="" ELSE X$="S" 

3540 DISPLAY AT{LIG,2):"ENTERPRISE vers K 
LINGON" ;X$:" "5: RPT$("_",23+LEN(X$)):: X 
=LI16G+2 

3550 FOR 1=1 TO 3 :: 1F K(1,3))20 THEN X=X 
+1 :: CALL DIRDIS(S1,S2,K(1,1),K(1,2),X 

) 

3560 NEXT I :: DISPLAY AT(X+1,1):RPT$("_" 
,:28):: GOTO 870 

3570 'calculs de direction/distance (COM- 
5) 

3580 DISPLAY AT(LIG,1):"CALCUL DE DIRECTI 
ON-D1 STANCE" :RPT${"_",28) : "Vous etes da 
ns le secteur" 

3590 DISPLAY AT{LIG+3,1):STR$#(S1);",";STR 
$(S2);" du quadrant ";STR$(Q1);"," ;STR$ 
COR)". 

3600 DISPLAY AT{(LIG+4,1):"Entrez:":" Quad 
rant d’arriv£e (XY):":" Secteur d’arriv 
e (XY):° 

3610 ACCEPT AT(LI6G+5,27)VALIDATE(DIGIT)SI 
ZE(2)BEEP:REP 

3620 CI=INT(REP/10):: A=REP-Ci#10 :: 
1{1 OR C1>8 OR A(1 OR À)8 THEN 3610 
3630 ACCEPT AT(LIG+6,27)VALIDATE(DIGIT)SI 
ZE(2)BEEP:REP 

3640 WI=INT(REP/10):: X=REP-WI#10 :: 
1<1 OR W1>8 OR X{1 OR X)8 THEN 3630 
3650 CALL DIRDIS(QGI*x8+S1,02*8+S2,C1x8+W1, 


IF C 


IF W 
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A*x8+X,LIG+8):: DISPLAY AT(LIG+9,1):RPT$ 
("_",28):: GOTO 870 

3660 'donnees vers starbase (COM-3) 

3670 IF B3<)>0 THEN 3690 

3680 TXT$=" SENSEURS ne montrent aucune St 
arbase dans ce quadrant ..." :: CALL BA 
NDECTXTS$,VIT):: GOTO 870 

3690 DISPLAY AT(LIG,1):"ENTERPRISE vers S 
TARBASE :" ,RPT$("_",25):: CALL DIRDIS(S1I 
,52,B4,B5,L1G+4) 

3700 DISPLAY AT(LIG+5,1):RPT$("_",28):: G 
OTO 870 

3710 ! 

3720 ! 

3730 ! 
3740 ‘recherche d’un secteur libre 

3750 SUB ALLOC(I,J,0$) 

3760 I=INT{RND#8+1):: J=INT(RNDXS8+1) : : 
LL TEST(1,J,0$," ",K):: 1F K=0 THEN 376 
0 

3770 SUBEND 
3780 ! 

3790 'entree dans un secteur 

3800 SUB SETSECT(I ,J,0$ ,Â$) 

3810 K=(I1-1)*x8+J :: IF K=1 THEN QG$=AS£&SEG 
SUBEXIT 


CA 


$(08,2,LENC OS) -K) : : 
3820 IF K=64 THEN Q$=SEG$(0$,1,63)8A$ :: 
SUBEXIT 

3830 Q$=SEG$(Q$ ,1,K-1)8&ASLSEGS(Q$ ,K+1 ,LEN 
(@$)-K) :: SUBEND 

3840 ! 


EH EEE = === 

3850 'test d’un secteur 

3860 SUB TEST(I,J,0$,A$ ,K) 

3870 K=(1-1)#8+J :: IF SEG$(Q$,K,1)C)2A$ T 
HEN K=0 ELSE K=1 
3880 SUBEND 

3890 !=—— 
3900 l'affichage direction-distance 

3910 SUB DIRDIS{XS,YS,XD,YD,K) 

3920 DIST=INT(SQOR((XD-XS) * 2+(YD-YS) *2)#10 
/8+.5)/10 IF YS{)>YD THEN 3960 

3930 IF XS=XD THEN DIR=0 :: GOTO 3970 
3940 1F XD<XS THEN DIR=90 ELSE DIR=270 
3950 GOTO 3970 

3960 DIR=-INT(ATN((XD-XS)/(CYD-YS))*180/PI 
+.5):: IF YD(YS THEN DIR=DIR+180 ELSE I 

F XD>XS THEN DIR=DIR+360 

3970 DISPLAY AT(K,1):"4{Dir. =":;DIR;")>-(WA 
RP, =";DIST;"}" :: SUBEND 


3990 'situation galactique 


4000 SUB SITUKI,J,1$) 

4010 ON I1+8*INT((J-1)/4)G0T0 4020,4030,40 
40,4050,4060,4070,4080,4090,4100,4110,4 
120,4130,4140,4150,4160,4170 

4020 I$="ANTARES" :: GOTO 4189 

4030 1$="RIGEL" :: GOTO 4ie0 

4040 1$="PROCYON" :: GOTO 4180 

4050 1$="VEGA" GOTO 4180 

4060 1$="CANOPUS" :: GOTO 4180 

4070 I$="ALTAIR" :: GOTO 4ign 

4080 I$="SAGITTAIRE" :: GOTO 4180 

4090 I1$="POLLUX" :: GOTO 4180 

4100 I1$="SIRIUS" GOTO 4180 

4110 1$="DENEB" :: GOTO 4180 

4120 1$%="CAPELLA" :: GOTO 4180 

4130 1$="BETELGEUSE" :: GOTO 4180 

4140 1$="ALDEBARAN" :: GOTO 4180 

4150 1$="REGULUS" GOTO 4180 

4160 I1$="ARCTURUS" :: GOTO 4180 

4170 1$="L’EPI" 

4180 ON J GOTO 4190,4200,4210,4220,4190,4 
200 ,4210 ,4220 

4190 I$=1$8&" 1" :: 
4200 I$=I1$&" 11" :: 
4210 1$=1$&" 111" : 
4220 I$=1$&" IV" 
4230 ! 

4240 l'emission message 

4250 SUB BANDE(TXTS,UIT) 

4260 TXTH=RPT$(" ",28)8TXTS$ 

4270 FOR ]1=1 TO LENCTXT#):: DISPLAY AT(24 
51): SEGSCTXT$,1,28):: CALL SOUND(UIT,40 
000,30) 

4280 CALL KEY(0,K,S):: IF S{)>0 THEN CALL 
RAZ(24,24):: SUBEXIT 

4290 NEXT I! GOTO 4270 :: SUBEND 

4300 —==—====—- 
4310 
4320 
4330 
ND 
4340 ! 

4350 'calcul element materiel 

4360 SUB MATER(1,1$) 

4370 ON I GOTO 4380 ,4390,4400 ,4410 ,4420 ,4 
430 ,4440 ,4450 

4380 1$="MOTEURS UWMARP" :: SUBEXIT 

4390 1$="SENSEURS COURTE DIST,." 
- 

4400 ]1$="SENSEURS LONGUE DIST." :: 
r 


SUBEXIT 
SUBEXIT 
: SUBEXIT 
: SUBEND 


leffacement ecran partiel] 
SUB RAZ(I,J) 


CALL HCHAR(I,1,32,(J-1+1)*32):: SUBE 


SUBEXI 


SUBEX] 
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1$=" CONTROLE PHASERS"® :: 
1$="TUBES PHOTONIQUES" :: 
1$=" CONTROLE AVARIES" :: 
1$="CONTROLE ECRANS" : : 
1$="LIBRAIRIE-ORDINATEUR" :: 


SUBEXIT 
SUBEXIT 
SUBEXIT 
SUBEXIT 
SUBEND 


4510 ‘condition de combat 

4520 SUB COND(I,J) 

4530 CALL RA2(é6,9):: IF 1=0 THEN SUBEXIT 
4540 DISPLAY AT(6,7)BEEP:"ZONE DE COMBAT" 
:TAB(7) ; "CONDITION ROUGE" 

4550 IF J(200 THEN DISPLAY AT(9,2)BEEP:"E 
CRANS DANGEREUSEMENT BAS" 

4560 SUBEND 

4570 END 


lattente 
SUB DELAI 


FOR 1=j TO 1000 :: NEXT I :: SUBEND 


Vas en mem mmemememrenn 


Ecriture directe dans les registres VDP 


Cet article a pour but de vous dé- 
montrer qu'il est parfaitement possi- 
ble de faire des ‘’’pokes”’ dans les re- 
gistres vidéo, en utilisant l'instruction 
CALL PEEKV. 


Rappelons qu'il existe deux zones de 
mémoire vive différentes: la mé- 
moire directement adressable par le 
microprocesseur (CPU) et la mé- 
moire adressable par le processeur 
vidéo (VDP). 


Notre intérêt se porte actuellement 
sur le registres internes du processeur 
vidéo. Ce processeur comporte 8 re- 
gistres, numérotés de 0 à 7, qui déci- 
dent du fonctionnement du proces- 
seur d'affichage. 

Jusqu'à présent, à l'exception de R1 
dont une copie se trouve en mé- 
moire CPU (—-31788), l'accès à ces 
registres était impossible en BASIC. 
Notre propos est d'offrir un accès à 
ces registres du processeur vidéo 
depuis le Basic, avec la Mini-mé- 
moire. 


L'astuce consiste à détourner de son 
rôle normal l'instruction Basic CALL 
PEEKV (Adresse,X) et de s’en servir 
pour écrire ce que nous voulons 
dans les registres VDP. Le rôle nor- 
mal de CALL PEEKV est de lire le 
contenu de la mémoire VDP de 0 à 
16383. Nous utilisons des adresses il- 
licites que nous calculons à l’aide de 
notre formule "MAGIQUE" : 
A = —32768 + 256 x N + D 
e NN étant le numéro du registre (de 
0 à 7); 
e D étant la valeur de l’octet de 0 à 
255 que nous voulons écrire dans 
le registre VDP numéro N. 


Rappelons le rôle des huit registres: 
e RO = 0 - normal 

RO = 2 - bit map 

R1 = 160 - transparent 


R1 = 224 - normal 
R1 = 232 - mode multicolore 
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R1 = 240 - mode texte 

R1 = 225 - sprites magnifiés 

R1 = 226 - sprites double taille 
R1 = 227 - sprites magnifiés dou- 
ble taille 

R2 indique le début de la Table 
d'écran. L'adresse étant le 
contenu de R2 multiplié par 1024 
et pouvant s'exprimer schémati- 
quement ainsi : (R2) x 1024 


R3 indique le début de la table 
des couleurs qui débute en : (R3) 
*x 64 


R4 indique le début de la table 
des descripteurs : (R4) x 2048 


R5 Table d’attributs des sprites : 
(R5) x 128 

R6 Table des formes des sprites : 
(R6) x 2048 

R7 Couleur de fond d'écran et, 
pour le mode texte uniquement, 
couleur des caractères. 


Les six applications suivantes ne sont 
bien entendu pas limitatives, et illus- 
trent simplement quelques exemples 
découlant du principe général. 


Ecriture transparente 


Combattre le ’SCROLL” et ses dé- 
sagréments est simple me direz- 
vous ! Il suffit, cela est bien connu, 
de rendre l'écran transparent pen- 
dant l'exécution des PRINT. Plu- 
sieurs solutions ont déjà été appor- 
tées à ce problème (voir ‘99 
Magazine” numéro 4). La nôtre est 
très simple et courte à écrire. 


Nous mettons 160 dans R1, à la 
place du contenu normal (224). 

En application de la formule générale 
nous calculons À : 


À = —32352 + 256 x 1 + 160 = 
—32352 
CALL PEEKV (-—-32352, X) donne 


donc la transparence et CALL 
PEEKV (—-32288, X) permet la réap- 


Gérard Baroni et Jean Marin 
parition du texte (224 étant remis en 
). 


100 REM HHXHHHMENNAMNEENNEUEX 
110 REM #* Efface l’ecran * 


120 REM XXHXHHNENANENAENENENE 


130 REM 

140 CALL CLEAR 

150 CALL PEEKV(-32352,X) 

160 PRINT “CE PROGRAMME EVITE LA 
“:2"VISUALISATION DU *"SCROLL""" 


70 CALL PEEKV(-32288,X) 
180 GOTO 180 


Î 


Caractères de la mire et 
sigle Texas 


Le Groupe des caractères affichés sur 
la mire d'introduction n'est pas le 
même que celui qui utilisé en Basic. 
Ces grandes lettres, le sigle Texas, et 
le sigle Copyright” sont dans la mé- 
moire VDP à partir de l'adresse 
2048. Pour y accéder, il suffit de dé- 
placer, comme le montre notre 
exemple, la table des formes avec 
(R4)=1. 

Nous vous laissons le soin d'analyser 
la suite mais, vous constaterez que 
l'avantage évident est de nous procu- 
rer un jeu de 256 caractères distincts 
en plus du premier jeu. 


10 REM HIHI 
20 REM *# 2eme groupe de * 


30 REM * caracteres * 
40 REM HAHHHHRRMMENNRNNRNNRE 


50 KEM 
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100 CALL CLEAR 

110 CALL PEEKW(-31743,X) 

120 CALL PEEKV(-31986,X) 

130 FOR 1=896 TO 927 STEP 8 

140 CALL POKEV(I,16,16,16,16,16, 
16,16,16) 

150 NEXT I 

160 FOR 1=0 TO 255 

170 PRINT CHRS(I); 

180 NEXT 1 

190 FOR I=0 TO 2 

200 FOR J=0 TO 2 

210 CALL POKEV(330+J+328] , 1+J+3# 
D) 

220 NEXT J 

230 NEXT 1 

240 G60TO 240 


Commutation de deux 
ou plusieurs images 


Cela nous permet d'écrire dans une 
image pendant la visualisation d’une 
autre image. La gestion simultanée 
de plusieurs pages de texte ou 
d'image est donc possible par dépla- 
cements de la table d’écran. 


100 REM #HHHENNEHNERNNENMENUX 
110 REM * Double page  * 
120 REM ŒHHHBHNENNRENNENANNEX 
130 REM 

140 CALL CLEAR 

150 PRINT “ DOUBLE PAGE D’ECRA 
N":° "s550: 
:"PATIENTEZ QUEL 

QUES INSTANTS.":22: 

160 FOR 1=2048 TO 2815 STEP 8 
170 CALL POKEV(1,128,128,128,128 
,128,128,128,128) 

180 NEXT 1 

190 A$="= PREMIERE PAGE =" 

200 2278 


210 60SUB 400 
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220 A4="POUR VISUALISER LA DEUXI 
EME" 

230 42402 

240 60SUB 400 

250 A4="PAGE TAPEZ UNE TOUCHE" 
260 A=2468 

270 60SUB 400 

280 CALL PEEKV(-32254,X) 

290 CALL CLEAR 


300 PRINT " ### DEUXIEME PAGE 


###"::::" EN CE MOMENT LA DEUXI 
EME"::" PAGE ES 

T AFFICHEE SUR" :: 

310 PRINT " L'ECRAN DU TELEVISE 
UR"::::" IL EST POSSIBLE DE":: 
" REVENIR TRES R 

APIDEMENT" : : 

320 PRINT "A LA PREMIERE PAGE EN 
TAPANT" : : "N'IMPORTE QUELLE TOUC 
HE."s2s: 

330 CALL PEEKV(-32254 ,X) 

340 CALL KEY(S,R,E) 

350 IF E=0 THEN 340 

360 CALL PEEKV(-32256,X) 

370 CALL KEY(5,R,E) 

380 IF E=0 THEN 370 

390 GOTO 330 

400 FOR I=1 TO LEN(A$) 

410 CALL POKEV(A+I ,ASC(SEGS (AS, 1 
51))+96) 

420 NEXT 1] 

430 RETURN 


Mode Texte 


L'accès à ce mode et à ses 40 colon- 
nes par le Basic et la Mini-mémoire 
offre de bonnes possibilités d’applica- 
tions, ne serait-ce qu’en conjuguant 
ses avantages avec ceux proposés 
dans l'exemple précédent. 

100 REM X#HH#XNEHMAEMAENANENX 
110 REM * Mode multicolore * 
120 REM #HY#HHNERNIENNENAEREE 
130 REM 

140 CALL CLEAR 

150 PRINT * MODE MULTICOLORE 
"22:2"LES COMMANDES SONT :":::" C 
CHANGER LA COUL - 

EUR" ::" D DROITE"::" S GAUCHE" :: 
160 PRINT " E HAUT"::" X BAS"::" 
À ALEATOIRE"::" (ENTER) FINIR": 


170 INPUT "ÇCENTER) PATIENTEZ..." 
:R$ 

180 CALL CLEAR 

190 RANDOMIZE 

200 CALL PEEKV(-32289 ,X) 

210 CALL PEEKV(-31743,X) 

220 CALL LOAD(-31788,232) 

230 FOR N=0 TO 5 

240 FOR 1=0 TO 31 STEP 8 

250 D=1+32N 


260 CALL POKEVC128aN+1 ,D,D+1 ,D+2 
,D+3,D+4,D+5,D+6,D+7) 

270 CALL POKEVC128#N+1432,D,D41, 
D+2,D+3,D+4,D+5,D+6,D+7) 

280 CALL POKEVC12BaN+1+64,D,D+1, 
D+2,0+3,D+4,0+5,D+6,D+7) 

290 CALL POKEVC128aN+1496,D,D+1, 
D+2,0+3,D+4,D+5,D+6,D+7) 

300 CALL SOUND(100 , 440,0) 

310 NEXT I 

320 NEXT N 

330 FOR 4=2048 TO 3583 STEP 16 
340 CALL POKEV(A,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0) 

350 NEXT À 

360 Y=24 

370 X=32 

380 C=7 

390 N=X-2#INT(X/2) 

400 A=2048+B8#INT(X/2)4Y+24B#INT( 
Y/8) 

410 CALL PEEKV(A,D) 

420 D=C-154CX(N-0)-D#(N=0)+16#IN 
T(D/16)#C(N=0)-(N=1)) 

430 CALL POKEV(A,D) 

440 CALL SOUNDC100,220,0) 

450 CALL KEYC5,R,E) 

460 IF E=0 THEN 450 

470 IF RC)13 THEN 520 

480 CALL PEEKVC-32288,X) 

490 CALL LOAD(-31788, 224) 

500 CALL CLEAR 

510 END 

520 IF R<)67 THEN 550 

530 C=C+1+15#(0=15) 

540 GOTO 420 

550 1F RC68 THEN 580 

560 X=X+1+(X=63) 

570 6070 390 

580 IF R<)83 THEN 610 

590 X=X-1-(X=0) 

600 GOTO 390 

610 IF RC)69 THEN 640 

620 Y=Y-1-(Y=0) 

630 G0TO 390 

640 IF R<)B8 THEN 670 

650 Y=Y+1+(Y=47) 

660 GOTO 390 

670 1F RC265 THEN 450 

680 X=INT(64#RND) 

690 Y=INTC4B#RND) 
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700 CALL SOUND(100,110+1000#RND, 
0) 
710 GOTO 390 


Mode Multicolore 


Ce mode particulier permet des gra- 
phismes colorés en quarts de carac- 
tère. Quatre couleurs sont accessibles 
par caractère au lieu de 2 en mode 
normal. Le programme de dessin est 
une petite récompense à votre assi- 
duité. 

100 REM BH 
110 REM * Mode texte # 
120 REM XHHXHHXHENHMENNERMANANNE 
130 REM 

140 CALL CLEAR 

150 A$="*4*# AFFICHAGE EN MODE TEX 
TE 40 COLONNES *#" 

160 FOR 1=959 TO 76B STEP -1 

170 CALL POKEV(I,128) 

180 NEXT 1 

190 CALL PEEKV(-32272,X) 

200 CALL PEEKVC-30957,X) 

210 FOR I=1 TO LEN(A$) 

220 CALL POKEV(I-1 ,ASC(SEGS (AS, 1 
51))+96) 


Etant professeur d'anglais, j'ai utilisé 
mes compétences linguistiques pour 
réaliser ce programme écrit en Basic 
TL Il s'agit d'un jeu basé sur les 
verbes irréguliers au prétérit (qu'il 
faut apprendre par coeur et souvent 
réciter) sous la forme question / ré- 
ponse. 


La liste des verbes est aussi utilisé 
pour une seconde option baptisé 
"’Hangman” (pendu) où l'on cherche 
l'infinitif d'un verbe irrégulier, puis le 
prétérit est affiché. 


Dans un but didactique, les instruc- 


100 
110 
120 
130 
140 
150 


REM 
REM * 
REM  * 
REM * 


MY TAILOR 
AS 
RICH 
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HRXKKKEEHEHEEEHEEEEEX 


id 170 
# 180 
* 190 * 
HXKAXEEREREEEREEEEEX HAKEREEERERÉERRERREXÉ 


* revision du passe* 


230 NEXT 1 
240 60T0 240 


Les Sprites 


Cette pluie de 26 lettres vous dé- 
montre, si besoin était, que les lutins 
peuvent être totalement gérés par le 
Basic et la Mini-mémoire, et cela 
sans passer par des routines en Às- 
sembleur. 


Mentionnons également que le BIT- 
MAP est possible mais interfère vite 
avec le Basic du fait d’une forte oc- 
cupation de la mémoire. 


100 REM HN 
110 REM * Pluie de lettres * 
120 REM HER 
130 REM 

140 RANDOMIZE 

150 CALL CLEAR 

160 CALL POKEV(911,16,16,16,16,1 
6,16,16,16,16,16,16,16,16) 

170 CALL SCREEN(1) 

180 CALL PEEKV(-31986,X,"",-3228 
7,Y) 

190 CALL LOAD(-31788,225) 

200 FOR 1=2 TO 26 

210 CALL POKEV(764+4%] ,6#1 ,8#] ,1 


60+1,2+INT(1/2)) 

220 NEXT 1 

230 CALL POKEV(872,208,"",768,é, 
8,161 ,2) 

240 FOR 1=1 TO 26 

250 CALL POKEV(1916+4#1 ,60#RND,0 
) 

260 NEXT 1 

270 CALL LOAD(-31878, 26) 

280 CALL KEY(5,VR,VE) 

290 1F VE=0 THEN 280 

300 CALL LOAD(-31878,0) 

310 CALL KEYC5,UR,VE) 

320 IF VE=0 THEN 310 

330 60TO 270 


En conclusion : la connaissance du 
contenu des huit registres du proces- 
seur vidéo TMS 9929 notre formule 
magique”, quelques déplacements 
judicieux de tables et l’utilisation 
d'une façon simple et 6! combien 
confortable. par rapport au langage 
Assembleur, du Basic, nous permet 
d'accéder directement au processeur 
vidéo, simplifiant l'écriture et l’exécu- 
tion des programmes et sans pour 
autant faire appel à la RAM de la 
Mini-mémoire qui reste libre pour 
d’autres usages. La] 


My tailor was rich 
T. Gallier 


tions d'utilisation sont en anglais, à 
savoir : 


TO STOP TYPE : END (pour arrêter 
entrez END): 

USE BLOCK CAPITALS (utilisez des 
majuscules): 

TRY AGAIN (essayez encore): 

WELL DONE (chapeau !). 


Les utilisateurs intéressés par la pro- 
grammation pourront chercher à per- 
fectionner ce programme au gré de 
leur imagination, par exemple : 


e dans la première partie (prétérit), 
classement des DATA pour per- 


160 


200 
210 


mettre des niveaux de difficulté 
avec restrictions au moment du 
choix de la zone-matrice: 

dans la seconde partie (hangman), 
une fois le verbe trouvé par le 
joueur, retour à la première partie 
du programme et l'utilisateur 
devra trouver le prétérit; 

possibilité de retour à la première 
partie à l'issue de la seconde: 
affichage du score pour ‘le 
pendu”, éventuellement en pre- 
nant en compte le nombre d'es- 
sais; 

amélioration du graphisme pour le 
pendu. E 


* des verbes irre- % 
* guiiers anglais * 
HAHXKAERELREEREEXXEX 


BASIC TI * 
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220 CALL CLEAR x 550 DATA "HIDE" ,"WRITE" ,"SHUT" ,"SPEND" ,"L 
230 CALL SCREEN(10) ET" ,"RING" ,"BEAT" ,"TEACH" ,"LEND" ,"SWIM" 
240 X=850 , "HIT" 

250 PRINT TAB(10) ;"DO YOU WANT'::" THE PR| 560 DATA "HID" , "WROTE" ,"SHUT" ,"SPENT" , "LE 
ETERIT OF IRREGULAR VERBS (1)":: T","RANG" ,"BEAT" ,"TAUGHT" ,"LENT" , "SAM" 
260 PRINT :: UT 

270 PRINT TAB(10);"OR":: 570 DATA "SEE" ,"SLEEP" ,"TELL","CATCH" ,"FE 
280 PRINT TAB(2)3;"THE HANGMAN (2) ?" EL" ,"SHOOT" ,"SELL" ,"KEEP" , "FALL" , "MEET" 
290 INPUT C ,"CHOOSE" 

300 CALL CLEAR 580 DATA "SAW" ,"SLEPT" ,"TOLD" ,"CAUGHT" ,"F 
310 IF C=2 THEN 1450 ELT" ," SHOT" ,"SOLD" ,"KEPT" ,"FELL" ,"MET", 
320 PRINT TAB(9);"PRETERIT OF"::TAB(8);" | "CHOSE" 

IRREGULAR VERBS" :° KHERHEHRERERREEEEXX 990 CALL CLEAR 

###" : : 600 IF OPT$#="YES" THEN 700 

330 GOTO 870 610 PRINT "WHAT’S YOUR NAME?" 

340 PRINT TAB(6);"TO STOP TYPE: END" 620 INPUT NAME$ 

350 PRINT :: 630 PRINT :: 

360 PRINT :: 640 PRINT "HELLO ";NAME$;" !" 

370 PRINT TAB(15);"(c) T.Gallier" 650 PRINT “ NOW LET’S START...":: 

380 OPTION BASE 1 660 FOR DELAI=1 TO 300 

390 DIM V#(6,2,11) 670 NEXT DELAI 

400 FOR L=1 TO 6 680 T=0 

410 FOR J=1 TO 2 690 S=0 

420 FOR I=i TO 11 700 RANDOMIZE 

430 READ V$(L,J,1) 710 IF OPT$="YES" THEN 730 

440 NEXT 1! 720 IF C=1 THEN 750 

450 NEXT J 730 P=INT(RND#5) +1 

460 NEXT L 740 GOTO 760 

470 DATA "GO" ,"EAT" ,"SIT" ,"GET" , "TAKE" ,"G| 750 P=INT(RND*6) +1 

IVE" ,"RUN" , "FLY" , "BUY" ," THINK" , "BREAK" 760 K=INT(RND#1 13+1 

480 DATA "WENT" ,"ATE" ,"SAT" , "GOT" ,"TOOK", | 770 IF C=2 THEN 1560 

"GAVE" , "RAN" , "FLEW" ,"BOUGHT" ,"THOUGHT", 780 1F OPT$="YES" THEN 1560 

"BROKE" 790 IF T<2 THEN 810 

490 DATA "COME" , "DO" , "KNOW" ,"BITE" , "WEAR" | 800 CALL CLEAR 

"HAVE" , "FIND" ,"LOSE" ,“THROW" , "BEGIN" ," 810 PRINT "PRETERIT OF"::"TO",U#(P,1,K) 
LEARN" 820 X=-500 

500 DATA "CAME" , "DID" ,"KNEW" , "BIT" ,"WORE" | 830 GOTO 1280 

,;"HAD" , "FOUND" , "LOST" ,"THREW" ,"BEGAN" ,* 840 IF R$="END" THEN 1050 

LEARNT" 850 IF R$=V$(P,2,K)THEN 860 ELSE 980 
510 DATA "BUILD" , "HEAR" , "READ" , "STAND" ,"C | 860 PRINT "CORRECT !!":: 

UT" , "DRIVE" ,"PUT" ,"SPEAK" ,"SEND" , "BRING 870 CALL SOUND(X,698,2) 

","FIGHT" 880 CALL SOUND(X,698,2) 

520 DATA “BUILT" ,"HEARD" , "READ" ,"STOOD" ," | 890 CALL SOUND(X,784,2) 

CUT" ,"DROVE" , "PUT" ,"SPOKE" ,"SENT" ,"BROU 900 CALL SOUND{X,659,2) 

GHT" ,"FOUGHT" 910 CALL SOUND(X,698,2) 

530 DATA "LIGHT" ,"MAKE" ,"SAY" ,"PAY" ,"WAKE | 920 CALL SOUND(X, 784,2) 

" "WIN" , "LEAVE" , "STEAL" , "COST" , "DRINK", 930 1F C=2 THEN 1540 

"FREEZE" 940 IF OPT$="YES" THEN 1540 

540 DATA "LIT" ,"MADE" ,"SAID" ,"PAID" ,"WOKE | 950 IF T=0 THEN 340 

","WON" , "LEFT" ,"STOLE" , "COST" ,"DRANK" ," 960 S=S+1 

FROZE"* 970 IF R$()"END" THEN 750 ELSE 1140 
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980 CALL SOUND(2000 ,-4,5) 1430 GOTO 840 

990 PRINT TAB(10);"#x%x#":;U$CP,2,K);"##x#": 1440 CALL CLEAR 

1000 PRINT TAB(11);"<€"; "TO “;U$(P,1,K);") | 1450 PRINT TAB(10) ;"THE HANGMAN" 

‘: 1460 PRINT TAB(10) ;"#########xx" 

1010 FOR DELAI=1 TO 1500 1470 PRINT :: 

1020 NEXT DELAI 1480 PRINT TAB(5);"10 POSSIBLE MISTAKES": 
1030 CALL CLEAR 3 

1040 GOTO 760 1490 PRINT 

1050 PRINT :: 1500 PRINT TAB(5);"TO STOP TYPE:"°/°""3: 
1060 PRINT NAME$;" SCORES :":: 1510 PRINT TAB(5); "USE BLOCK CAPITALS" 
1070 PRINT TAB(5);S,"OUT OF "“;T-1:: 1520 X=1200 

1080 X=500 1530 GOTO 870 

1090 TMINT(T#2/3) 1540 RESTORE 

1100 IF S)=TM THEN 870 1550 GOTO 380 

1110 FOR 1=1 TO 8 1560 M$=V$(P,1,K) 

1120 CALL SOUND(1000,-I,3) 1570 L=LEN(MS#) 

1130 NEXT 1 1580 CALL CLEAR 

1140 CALL CLEAR L70, 192" mms , 

1150 PRINT "DO YOU WANT TO PLAY AGAIN ";N|1600 T1$=SEGS(T$,1,L) 

ÂMES ;"?":: 1610 PRINT TAB(13) ;T1$ 

1160 PRINT "TYPE ’YES’ OR ‘NO°’"°:: 1620 FOR DELAI=1 TO 500 

1170 INPUT CONT$ 1630 NEXT DELAI 

1180 1F CONT$="YES" THEN 650 1640 SC=0 

1190 PRINT "IS THERE ANOTHER PLAYER?" ::" |1650 INPUT À$ 

(TYPE ‘YES” OR ’NO°’)":: 1660 IF ÀA$="/" THEN 1880 

1200 INPUT OP$ 1670 R=ASC(AS) 

1210 1F OP$="YES" THEN 590 1680 FOR X=1 TO L 

1220 PRINT "DO YOU WANT TO PLAY ""THE HAN |1690 IF SEG$(M$,X,1)=A$ THEN 1760 
GMAN" * 7" 1700 NEXT X 

1230 INPUT OPT$ 1710 SC=SC+1 

1240 IF OPT$="YES" THEN 1440 1720 CALL HCHAR(1,10,33,S0C) 

1250 PRINT "BYE ";NAMES$;"! ";" SEE YOU A |1730 CALL SOUND(750,-8,4) 

GAIN..." 1740 IF SC)10 THEN 1830 

1260 END 1750 GOTO 1650 

1270 CALL SOUND(1000 ,-4,3) 1760 TI$=SEGS(TI$,1,X-1)84A8RSEGSCTIS,X+1, 
1280 FOR I1=1 TO 32 L) 

1290 CALL SCREEN(12) 1770 PRINT "CORRECT" 

1300 CALL COLOR(4,2,7) 1780 PRINT TAB(13) ;T1$ 

1310 CALL HCHAR(1,1,62,1) 1790 IF Ti$=M$ THEN 1800 ELSE 1650 
1320 FOR DELAI=I TO 100 1800 PRINT TAB(13) ;V$(P,2,K) 

1330 NEXT DELAI 1810 PRINT "WELL DONE " ;NAME$;"!!1!":: 
1340 CALL KEY(3,Â,ST) 1820 GOTO 1850 

1350 IF ST=0 THEN 1410 1830 PRINT TAB(13) ;M$ 

1360 A$S=CHRS (A) 1840 CALL HCHAR(24,15,42,L) 

1370 INPUT ÀA$:R$ 1850 FOR DELAI=1 TO 500 

1380 T=T+i 1860 NEXT DELAI 

1390 R$=AI&RS 1870 GOTO 700 

1400 GOTO 840 1880 PRINT "GOODBYE " ;NAME$;" !!!" 
1410 NEXT 1 1890 END 

1420 IF 1=32 THEN 980 
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Le code de Ia route 


Jacques Keck 


Ce jeu écrit en Basic Etendu vous 
pose cinquante questions relatives à 
la signalisation routière. 


Il vous faudra reconnaître les pan- 
neaux affichés, et donner la solution 
exacte parmi les cinq définitions que 


vous propose l'ordinateur. Facile... 
pas si sûr. car si l’ordinateur peut 
choisir plusieurs fois le même pan- 
neau parmi les 65 panneaux diffé- 
rents stockés dans sa mémoire, il 
n'accepte pas que fassiez plus de 
cinq erreurs. 


Ce logiciel est, à notre avis, un excel- 
lent outil pédagogique pour appren- 
dre à nos enfants la signalisation rou- 
tière. 


100 ! XXHAHEENHENEEREEAEEEEX 

110 ! * CODE DE LA ROUTE * 

120 ! HHHHXHENAEREERERAEEEE 

+ SE. BASIC ETENDU * 

140 ! XHXXREANEENAEEEEARERRE 

130 ! 

160 DATA virage a gauche ,000000000F3F0F01 
0000000000000000000000000080C0E0F078383 
8386382828 

170 DATA virage a droite,0000000000010307 
OFIE1CI1C1C1C141400000000F0FCF0800000000 
0000000000 

180 DATA virages dont ‘er a droite ,000000 
0000001C3E3F3B3B393838382804040E0E0E0E0 
ECEOESECEFC78300000 

190 DATA virages dont ‘er a gauche ,202070 
70707070707071737F3E1C00000000000000003 
87CFCDC9CIC1C1C1C14 

200 DATA chaussee glissante,0000010301010 
20C101009090408106000209088C4E274383C48 
8000C0300810 

210 DATA dos d ane ,0000000000000000000018 
3C7EFFFF0000000000000000000000183C7EFFF 
F00 

220 DATA pont mobile ,000000000103060C3810 
60E0F0F9FF00002070C080000000000006070F9 
FFF00 

230 DATA danger particulier ,0001030303030 
30301010101000103010080C0C0C0C0C0C08080 
80800080C080 

240 DATA chaussee retrecie,000E0E0E1C3870 
E0E0E0E0E0E0E0E00000707070381C0E0707070 
720707070700 

250 DATA chaussee retrecie a gauche ,000E0 
E0E1C3870E0E0E0E0E0E0E0E000001C1C1C1C1C 
1C1C1C1C1C1C1C1C1C00 

260 DATA chaussee retrecie a droite,00383 
83838383838383838383838380000707070381C 
0E070707070707070700 
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270 DATA circulation bilaterale,000010387 
CFE3838383838383838000000001C1C1C1C1C1C 
1C1C7F3E1C080000 

280 DATA vent lateral ,0103040À1 1284070000 
0000000000000E0108C54648404040404040404 
040400 

290 DATA attention aux enfants,0000000000 
3838101C7DBABC7C24246C001C1C1C081C7ESDD 
DIC7E7F14141436 

300 DATA passage pour pieton,07070702070F 
176707055508081900AA0000000000804020200 
05480808000À 

310 DATA debouche de cycliste ,0303070E0F0 
EOEOEOFOE728ABC88700080800011F11F080888 
E84E5195510E00 

320 DATA aire de danger aerien,6070381F0F 
0FOF0D18103020200000001C38E0C0800080C0E 
0703E1810100000 

330 DATA descente dangereuse ,000000000004 
ODOSCSF1FCFFFFFFFFFF000000000000D85942C 
40813C3FO0FCFF 

340 DÂTA danger animaux domestiques ,00403 
078FF7F1F0FOFOFOFO50D09090000000000FFFD 
FDFDFDFCFC1 41404000 

350 DATA passage animaux sauvages,090F083 
8781C0F07070F70402000000000000000000000 
C2FCF838301C020100 

360 DATA pas a niveau sans barriere,00010 
3070F0E08097F7F7FFF7F6DFF0000E0F0800000 
3F38F8F8FEFEFOBOFFO0 

370 DATA pas a niveau a barrieres,006D6DF 
FFFéDéDéDéDéDéDFFFFéDéDO000BéBéFFFFBéBé 
BéBéBéBéFFFFBéB600 

380 DATA chutes de pierres,00010300000606 
0C000006644002868E80406060F0F0F8787C7C7 
EFEFFFF7F7F 

390 DATA priorite a droite ,0000E070381C0E 
07070E1C3870E000000000070E1C3870E0E0703 
81C0E070000 
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400 DATA route prioritaire,01030707070707 
3F070707070707060 480C0E0E0E0E0E0FCEOECE 
0E0E0E06020 

410 DATA travaux temporaires,030303021F2F 
2F1F0F0F090909094DFF8080800080404040C02 
0100C0E1EBFFF 

420 DATA gravillons,0000000000001E21217F7 
F7F2121FF000000000000010002008588922050 
FF00 

430 DATA arret obligatoire ,0000000000006E 
446424640000000000000000000000EEMEÂ8E 

8 

440 DATA sens interdit,0000000000FFFFFFFF 
FFFF00000000000000000000FFFFFFFFFFFFO00 
0000000 . 

450 DATA stationnement interdit,0FiF0F47E 
3F1F8FCFEFFFFFF7F7F7FOFFOFEFEFEFFFFFF7F 
3F1F8FC7E2F0F8F0 

460 DATA arret interdit,0F1FO0F47E3F1F8FCF 


CF8F1E3470F1FO0FFOF8FOE2C78F1F3F3F1F8FC7 
E2F0F8F0 

470 DATA interdit dans les { sens,0F7F7F7 
FFFFFFFFFFFFFFFFF7F7F7FOFFOFEFEFEFFFFFF 
FFFFFFFFFFFEFEFEFO 

480 DATA obligation de tourner ,0000060C18 


3060FFFF6030180C06000000000000000000FEF 
E00000000000000 

490 DATA sens giratoire,02076FE6C2C0C0C0é6 
8383878000C0F0700C0F0381C0E060600003C1C 
1C34E0C0 

500 DATA vitesse minimale ,00007E7E6060607 
E7E0606067E7E000000007E7Eéééééééééééééé 
6é67E7E0000 

510 DATA couloir d autobus,0000000000007F 
5191FFFFE718000000000000000000FF1111FFF 
FE718000000 

520 DATA piste cyclable ,000000000E10100F0 
80814729948897000000000001C08F80810304E 
D5D5110E 

530 DATA voie pietonniere,0038383810387CB 
AB9B838282828286C00000000001€C1C081CBE5D 
1C3E14143é6 

540 DATA "fin de ",000000000000000103070E 
1C3870E0C003070E1C3870E0C080 

550 DATA route prioritaire,0103070F1F3F7F 
FFFF7F3F1F0F070 301 80C0E0FOF8FCFEFFFFFEF 
CF8F0E0CO080 

560 DATA cedez le passage ,FFFF7F7F3F3F1F1 
FOF0F070703030101FFFEFEFCFCF8F8FOFOEOE0 
CoCo8080 

570 DATA parc de stationnement ,0FOFOFOFOF 
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OFOFOFOFOFOFOFOFOFOFOOFOF8FCFE1E1EFEFCF 
8F0 

580 DATA hopital faites silence,787878787 
8787F7F7F7F7878787878001E1E1E1E1E1EFEFE 
FEFEIEIEIEÏEIE 

590 DATA "",003838383838383838383838FE7C1 
000000000000000000000 

600 DATA sens prioritaire ,000000000000000 
0000000000000000000183C7E18181818181818 
181818 

610 DATA "",000F0FOF000000000000000000000 
00000F0F0F00000000000 

620 DATA voie sans issue ,0000000003030303 
0303030303030000000000C0C0C0C0C0C0C0C0€ 
0COCO 

630 DATA "",C0E070381C0E07030100000000000 
0000000000000000080C0E070381C0E0703 

640 DATA arret au peage ,AEAREEAAAAOO7FFFF 
F7F00EDA9ED898DBB9293929300FEFFFFFE00DB 
52D3565B 

650 DATA interdit aux poids lourds,001F1F 
1F7F9F9FFFFFFF9F6é06000000000FFFFFFFFFFF 
FFFFFFFF30C0C 

660 DATA interdit aux pietons,03030301030 
70B1363030204040828108080800080C0À0 9090 
90804040202060 

670 DATA limitation de tonnage ,00003777Fé 
Bé363636363637000000000000C0CCCECECCCCC 
CCCCFC7 

680 DATA largeur limitee ,00003E3E06069EDE 
Cé863E3E00000000000000000000FFABABA9 

690 DATA hauteur limitee,030100F8F81B1B7B 
7B1B1BF8F8000103C080000000FFFF333333330 
0000080C0 

700 DATA “*,000000003E22227F7F7F222200000 
000000000000000000000 

710 DATA Klaxon interdit,0080C0E0FOF8FCFF 
FFFCF8FOE0CO800000000000030F3FFFFF3F0F0 

3 

720 DATA ne pas tourner a gauche ,2060FFFF 
FF60200000000000000000000000FCFEFE0E0E0 
EOEOECOEOEOEOEOEOE 

730 DATA ne pas tourner a droite,00003F7F 
7F70707070707070707070700406FFFFFF06040 
000 

740 DATA pas de demi tour ,001F3F383030303 
0FC7830000000000000F0F83818181818181818 
1818181818 

750 DATA interdit autos et motos,00000000 
000000002040E77F4C4AA5423E22227F5D7F222 
200 
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760 DATA interdit de depasser ,00000000000 

000000000000000000000000000003E22227F7F 

7F2222 

770 DATA vitesse limitee ,00007E/7Eé060607E 

7E0606067E7E000000007E7Eééééééééééééééé 

67E7E0000 

780 DATA depassem interdit,000000003E2222 

7F7F7F222200000000000000003E22227F7F7F2 

222 

790 F=92 :: G=100 :: H=108 :: 

128 :: K=132 :: N=136 :: P=140 

800 V$S=RPT$("0" ,16):: P$S=RPT$("F" ,16):: C 

ALL MAGNIFY(3):: E=0 

810 CALL CHAR(9é,"0000001030501010" ,123," 

0000003048102078") 

820 F$="0103070F1F3F7FFF" 

830 G$="FF7F3F1F0F070301" 

840 H$="80COE0FOFS8FCFEFF"* 

850 1$="FFFEFCF8FOE0CO80" 

860 CALL CLEAR :: FOR À=2 TO 8 

LOR(A,7,1):: NEXT À 

870 DISPLAY AT(1,5):"LE CODE DE LA ROUTE" 

880 DISPLAY AT(3,2):"QUEL EST CE PANNEAU 

?° 13 DISPLAY AT(S,1):"1"5:"2°353"3";"4"23° 

5° 

890 FOR TIRAGE=I TO 50 W$="" 

900 FOR À=9 TO 12 :: CALL COLOR(A,1,1):: 

NEXT À 

910 RANDOMIZE :: CH=INT(RND#20)+1 

920 ON CH GOTO 930,1530,1170,1220,930,122 

0,1530,930,1220,930,930,1220,1530,930,1 

360,1430,1470,1530,1220,1470 

930 2=12 :: T=10 :: Y=INT(RND#27)+1 :: 
=PA THEN 32767 ELSE PÂA=Y :: L=H O= 

J :: GOSUB 1650 :: GOSUB 1730 

940 IF PÂ=13 THEN C=9 ELSE C=5 

950 ON PA GOSUB 1840,1850,1860,1870,1880, 

1890,1900,1910,1920,1930,1940,1950,1960 

,1970,1980,1990,2000,2010,2020,2030,2040, 

2050,2060,2070,2080,2090,2100 

960 READ MT$,CAS :: CALL CHAR(36, CAS ) : : 

OSUB 1760 

970 V=INT(RND#5)+1 :: FOR S=i TO 5 :: M(S 

2=0 :: NEXT S :: M(V)=1 :: MOT$(U)=WS$8M 

T$ 

980 FOR S=i TO 5 

990 IF M(S)=0 THEN 1000 ELSE 1010 

1000 M(S)=1 :: CALL ACX(CATS,MT$):: MOTS$(S 

)=AT$ 

1010 DISPLAY AT(4+S,3) :MOT$(S) 

1020 NEXT S 


1=120 :: J= 


:: CALL CO 


IF 
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1030 FOR A=9 TO 12 :: CALL COLOR(A,6,1):: 
NEXT À 

1040 CALL SPRITE(#2,36,C,L,0) 

1050 DISPLAY AT(18,1):"V0TRE REPONSEL 1,2, 
3,4,5)?= 1" :: ACCEPT AT(18,28)S1ZE(-1) 
BEEP VALIDATE("12345"):RP 

1060 IF RP=V THEN 1070 ELSE 1080 

1070 DISPLAY AT(20,1):"BRAVO,LA REPONSE E 
ST EXACTE" :: GOTO 1090 

1080 E=E+1 :: DISPLAY AT(20,1):"FAUX,LA B 
ONNE REPONSE ETAIT": :MOT#(U) 

1090 FOR DE=1 TO 1000 :: NEXT DE 

1100 DISPLAY AT(20,1):"": 
1110 DISPLAY AT(24,1):"SUR" ; TIRAGE ; "PANNE 
AUX" ;E;"ERREURS" :: FOR DE=1 TO 100 :: 
NEXT DE 

1120 1F E=5 THEN CALL DELSPRITE(ALL):: GO 
TO 1150 ELSE 1130 

1130 CALL DELSPRITE(ALL):: NEXT TIRAGE 
1140 CALL CLEAR :: DISPLAY AT(10,1):"BRA 
O VOUS AVEZ REUSSI L'EPREUVE THEOR 
IQUE DU PERMIS DE CONDUIRE" :: END 
1150 CALL CLEAR :: DISPLAY AT(10,1):"HELA 
S,VOUS AVEZ ECHOUE À L'EPREUVE THEOR 
IQUE DU PERMIS DE CONDUIRE... 
REVOYEZ VOTRE CODE" 

1160 DISPLAY AT(20,1):"SUR" ; TIRAGE ; "PANNE 

AUX,5 ERREURS" :: END 

1170 O$=F$&P$&PS&PS 

1180 R$=P$&GS&PSEPS 

1190 T$=PS&P$&HILPS 

1200 U$S=P$S&PH&PS&IS :: 2=16 :: T=10 

1210 GOSUB 1730 :: L=G :: O=J :: C=9 

OSUB 2110 GOTO 960 

1220 Q$="00000103070F1F3F3F7F7F7FFFFFFFFF 


OF7FFFFFFFFFFFFF"&PS$ 
1230 R$="FFFFFFFF7F7F7F3F3F1F0FO?0 3010000 


"&P$SL"FFFFFFFFFFFF7FOF" 

1240 T$="FOFEFFFFFFFFFFFF'&P$&"000080C0E0 
FOF8FCFCFEFEFEFFFFFFFF"® 

1250 U$=P$£&'"FFFFFFFFFFFFFEFOFFFFFFFFFEFEF 
EFCFCF8FOE0CO0800000" RANDOMI ZE 
INTCRND*4)+1 :: ON R GOTO 1260,1290,1320, 
1630 :: 
1260 Z=10 
O=J 

1270 GO=INT(RND*4)+1 :: IF G0=G5 THEN 127 
0 ELSE 65-60 :: IF G5=2 OR G5=3 THEN C= 

5 ELSE C=ié 

1280 ON G5 GOSUB 2120,2130,2140,2150 :: 

OTO 960 


4 
.. 
.. 


1: T=ié GOSUB 1730 :: L=G :: 
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1290 2=5 GOSUB 1730 L=G :: 
O=J C=ié 

1300 G2=INT(RND#6)+1 :: 
0 ELSE 6G1=62 

1310 ON G1 GOSUB 2160,2170,2180,2190,2200 
2210 :: GOTO 960 
1320 2=5 :: T=Îé6 
O=J :: C=ié 

1330 G4=INT(RND*x4)+1 
0 ELSE 63=64 

1340 D=10 GOSUB 1690 

1350 ON G3 GOSUB 2180,2190,2200,2210 :: G 
OTO 960 

1360 Q$=V$8F$&FSE&PS 

1370 R$=G$#8&U$S&PSEGS 

1380 T$=H$&PSUVSEHS 

1390 US=PH&ISRISEUS :: 2=16 :: T=5 : 
INT(RND#2) +1 
1400 GOSUB 1730 
TO 1410,1420 
1410 D=2 :: GOSUB 1690 

1420 RESTORE 550 C=11 GOTO 960 

1430 0O$="FFFF7F7F3F3F1F1FO0F0F070703030101 
" :: L$="FFFFFEFEFCFCF8F8FOFOEUEOCOC080 
80" 
1440 
1450 


T=ié 


IF G2=61 THEN 130 


GOSUB 173 


L=G 


1F G4=63 THEN 130 


2 L=G :: O=J :: ON CA G0 


Q$=0$8&P#&PS R$=V#8V#80$ 

T$=PHEPHELS :: US=LSEUSEUS 

1460 Z2=10 :: T=é :: GOSUB 1730 :: L=6G 
O=J :: C=12 :: GOSUB 2220 GOTO 960 
1470 Q$=P$S&PSEPSEPS :: R$=Q$ :: T$=Q$ 
U$=0Q$ 
1480 Z 


=5 !: :: GOSUB 1730 

RND#%2)+1 :: ON Qi GOTO 1490,1500 

1490 L=G :: O=J :: C=ié :: Q2=INT(RND#2)+ 
1 :: ON Q2 GOSUB 2230,2240 :: GOTO 960 
1500 D=10 :: C=ié :: L=G :: O=J :: Q3=INT 
(RND#2)+1 :: ON Q3 GOTO 1510,1520 

1510 GOSUB 1700 :: GOSUB 2250 :: GOTO 960 
1520 GOSUB 1710 :: GOSUB 2260 :: GOTO 960 
1530 Q$="00000103070F1F3F3F7E7E7EFCFCFCFC 
OF 7FFFFFFFFFF080"8&V$ 

1540 R$="FCFCFCFC7E7E7E3F3F1F0F0703010000 
"aV$&" S0FOFFFFFFFF7FOF" 

1550 T$="FOFEFFFFFFFFOF O1 "&4V$&"000080C0E0 
FOF8FCFC/7E7E7E3F3F3F3F" 

1560 U$=V$8&"010FFFFFFFFFFEFO3F3F3F3F7E7E7 
EFCFCF8FO0E0C080" 

1570 2=10 :: T=ié :: GOSUB 1730 :: L= 
O=J :: ÉFINT(RND#2)+1 :: ON À G 
OTO 1580 ,1600 

1580 AO=INT(RND#é) +1 
0 ELSE Ai=A0 


QI=INT( 


T=ié 
Q 


IF A0=ÂÏ THEN 158 
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1590 ON Ai GOSUB 2270,2280,2290,2300,2310 
2320 :: GOTO 960 
1600 A3=INT(RND#é) +1 
0 ELSE A2=A3 

1610 D=9 :: 1F À3=6 THEN GOSUB 1670 ELSE 
GOSUB 1480 

1620 ON À3 GOSUB 2330,2340,2350,2360,2370 
2380. :: GOTO 960 
1630 2=16 :: T=2 
O=J :: C=15 
INT (RND#3) +1 
UO 

1640 ON U GOSUB 2390,2400,2330 :: GOTO 96 
0 

1650 ÀA$="0101030307070F0F" :: B$="1F1F3F3 
F7F7FFFFF®" :3: C$="68080C0CO0E0E0FOFO" :: 
D$="FSFS8FCFCFEFEFFFF"® 

1660 QS=VSEUVSLASEBS :: R$S=ASEBSEPSLEPS : : 
T$=CHEDSEUSEUS :: US=PSELPSECSEDS :: RET 
URN 
1670 
1680 
1690 
1700 


:: IF A3=A2 THEN 160 


GOSUB 1730 :: L=G :: 
D=2 :: GOSUB 1690 UO= 
:: IF UO=U THEN 1630 ELSE LU= 


RESTORE 700 
RESTORE 630 
RESTORE 540 
RESTORE 590 
1710 RESTORE 610 :: GOTO 1720 

1720 READ U$,CX$ :: CALL CHAR(40,CX$):: C 
ALL SPRITE(#1,40,D,G,J):: RETURN 

1730 CALL COLOR(O,1,T):: CALL CHAR(J,0$,K 
RS ,N,T$,P, US) 

1740 CALL SPRITE(#25,9,2,F,1,#26,K,2,H,1, 
#27,N,2,F,N,#28,P,2,H,N) 

1750 RETURN 

1760 FOR X=15 TO 20 :: FOR Y=11 TO 17 :: 
CALL HCHAR(Y,X,31):: NEXT Y :: NEXT X : 

: RETURN 

1770 SUB ACX(AT$ ,MT$) 

1780 G=INT(RND*57)+1 

1790 1F G)55 THEN 1830 ELSE 1800 

1800 IF GQ>28 THEN 1820 ELSE 1810 

1810 ON QG GOSUB 1840,1850,1860,1870,1880, 
1890,1900,1910,1920,1930,1940,1950,1960 
,1970,1980,1990,2000,2010,2020,2030,2040, 
2050 ,2060,2070,2080,2090,2100,2110 :: G 
OTO 2410 

1820 ON G-28 GOSUB 2120,2130,2140,2150,21 
60,2170,2180,2190,2200,2210,2220,2230 ,2 
240,2250,2260,2270,2280,2290,2300,2310,23 
20,2330,2340,2350 ,2360,2370,2380 :: GOT 

0 2410 

1830 ON G-55 GOSUB 2390,2400 :: GOTO 2410 
1840 RESTORE 160 :: RETURN 

1850 RESTORE 170 :: RETURN 


GOTO 1720 
GOTO 1720 
GOTO 1720 
GOTO 1720 
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2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 


RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTOURE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
2410 READ LT$# 
2420 IF LT$=MT$ OR LT$=ATS$ THEN 1780 ELSE 
AT$=LTS 

2430 SUBEND 


480 
490 
500 
510 
9520 
530 
560 
570 
580 
600 
620 
640 
650 
660 
670 
680 
690 
710 
720 
730 
740 
750 
760 
770 
780 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 
RESTORE 


B 
B 
— 


Un double face sur votre TI 
Sophie Ehster 


Oui vous avez bien lu : il est possible teur de disquettes, le système consi- rien, on ne peut savoir sur quelle 
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d'installer un lecteur de disquettes 
double face sur notre TI 99. Il y a 
tout de même un petit ’mais”. En 
effet, la petite modification ‘’hard- 
ware” que je vous propose consiste à 
créer deux unités logiques sur la 
même unité physique. Expliquons 
nous : une unité physique c’est le 
lecteur au sens matériel du terme 
alors que son équivalent logique est 
celui que perçoit le système, c’est-à- 
dire de simples canaux d’en- 
trées/sorties. 


Ainsi, quand vous copiez à l’aide du 
DISK MANAGER un fichier ou une 
disquette complète avec un seul lec- 


dère qu'il a affaire à deux unités logi- 
ques distinctes (il vous demande de 
changer de disque aussi souvent que 
nécessaire) alors qu'il n'y a bien 
qu’une seule unité physique. 


Notre démarche est inverse : partant 
d'un lecteur de disquettes double 
face nous allons forcer le TI à condi- 
dérer chacune d'elles comme un lec- 
teur indépendant. 


Le produit obtenu ne mérite en fait 
pas l'appellation double face car il 
n'est pas entièrement transparent vis 
à vis de kutilisateur. Sur un vrai dou- 
ble face, on ne se rend compte de 


face sont situés les programmes, ni 
quand le lecteur accède à l’une des 
faces. C’est exactement comme si on 
avait une seule face de capacité dou- 
ble. 


Dans le cas présent, et par la force 
des choses, tout se passe comme si 
l’on avait deux lecteurs de disquettes 
totalement indépendants. Notons 
tout de même que les topologies des 
deux faces sont différentes et que, 
par conséquent, on ne peut retour- 
ner la disquette lors de son introduc- 
tion. 


Cette petite modification apporte à 
mon sens deux énormes avantages : 
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le gain de place (ce qui n’est pas né- 
gligeable avec un système aussi volu- 
mineux que notre Texas) et surtout 
le prix. 

Sachez en effet que l’on peut prati- 
quement raccorder n'importe quel 
lecteur double face au Texas (à part 
quelques originaux comme APPLE, 
pour ne pas les citer, tous les lecteurs 
de disquettes ont les mêmes connec- 
teurs, tant pour l'alimentation que 
pour les commandes). À ce sujet, un 
petit rappel s'impose; la capacité 
d'une disquette ne dépend nullement 
du lecteur (qui possède néanmoins 
une limite supérieure de par sa mé- 
canique) mais du contrôleur qui gère 
l'ensemble. Ainsi, si le lecteur X fonc- 
tionnant sur l'ordinateur Y permettait 
de stocker 400K par disquette, il 
n'en archivera toujours que 90 
(hélas !) une fois raccordé au TI-99,. 


Schéma 1 


Of =” 
Ov ° / 
5 TTL 
12% 


Pour ma part, j'ai acheté un lecteur 
double face destiné au TRS-80 pour 
environ 2000 F. Moralité : pour un 
prix inférieur à celui pratiqué par 
Texas Instruments pour son simple 
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lecteur de disquettes interne (d’ail- 
leurs pratiquement introuvable sur le 
marché), on peut se payer luxueuse- 
ment un double face. Je vous laisse 
le soin de chiffrer l’économie réali- 
sée; sachez simplement qu’un lecteur 
externe se vendait aux alentours de 
5OO0F. 


Une dernière précision avant de dé- 
tailler la procédure à suivre pour 
l'installation : si vous ne vous sentez 
pas d'attaque pour réaliser la petite 
manipulation dont je vais vous par- 
ler, ou si vous êtes réfractaire à toute 
forme de “bidouille”, sachez qu'il est 
parfaitement possible d'installer le 
lecteur SANS AUCUNE MODIFICA- 
TION, et que le système le considé- 
rera alors comme un simple face, 
ignorant rovalement l'autre (il va 
sans dire qu'il est préférable, dans ce 
cas, d'acheter un simple face). Ceci 
devrait mettre un terme à la pénurie 
de lecteur de disquettes. 


Un dernier mot; le schéma décrit ci- 
aprés s'applique à la configuration 
suivante : 

e substitution du lecteur interne de 
chez Texas par un double face 
(qui jouera donc les rôles de 

/ DSKI et de DSK2): 
transformation de l’ancien lecteur 
en DSK3 par adjonction d’une ali- 
mentation. 


C'est un point qu'il convient d’éclair- 
cir. Bien que Texas Instruments ait 
prétendu le contraire (pour des rai- 
sons que vous allez vite comprendre) 
les lecteurs internes et externes sont 
RIGOUREUSEMENT  IDENTIQUES 
dans leur logique et dans leur méca- 


Schéma 2 


nique. Les premiers coûtent 2500 F, 
les seconds le double (pour un petit 
transformateur et un petit coffret en 
plus). Tout ça pour dire qu'il suffit de 
fabriquer une petite alimentation (ou 
de la faire fabriquer) pour recycler un 
lecteur interne en externe. 

Les petits malins vont essayer de re- 
piquer l'alimentation du lecteur in- 
terne; erreur ! J'ai essayé, ça ne mar- 
che pas: les tensions chutent au 
bout d’une trentaine de secondes. 


Remarque : le boîtier contient en fait 
deux alimentations : 


e l'une destinée au lecteur de dis- 
quettes, qui est donc dimension- 
née pour UN SEUL appareil 

e l’autre destinée à alimenter les dif- 
férentes cartes. 


Cette dernière a vraisemblablement 
dû être largement dimensionnée et 
permettrait peut-être d'alimenter un 
lecteur; faute de temps, je n’ai pu es- 
sayer cette opération. Si vous y arri- 
viez et que ça marche, faites le nous 
savoir. 


Pour ma part, je me suis fait fabri- 
quer (pour 100 F de composants) 
une petite alimentation externe dont 
les caractéristiques sont les suivan- 
tes : 25W, 2 sorties régulées, l’une à 
12v et l’autre à 5v TTL. Le éablage 
de l'alimentation sur la carte du lec- 
teur est donné par le schéma 1. 


Sachez enfin que pour relier un ex- 
lecteur interne devenu externe au 
connecteur arrière de la carte contrô- 
leur, on peut mettre bout à bout 
deux des éables de liaison fournis par 


Texas Instruments avec chaque boî- 
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tier. Il est nécessaire d'en mettre 
deux car ces éables inversent certai- 
nes broches, alors que dans le cas 
présent il faut les relier directement. 
La double inversion s’annulant, tout 
rentre dans l’ordre. Notons que pour 
raccorder le êable au lecteur, il faut 
détruire le détrompeur du connecteur 
(du éable) et l’insérer correctement 
dans le lecteur, en laissant le fil rouge 
du éable sur la droite, si l’on regarde 
le lecteur de face (ouf!l). 


Pour en finir avec ces liaisons, si tout 
ceci vous paraît bien compliqué, allez 
chez un revendeur et achetez le 
êable adéquat (tout bête et tout sim- 
ple...). 


Revenons donc, après toutes ces 
considérations annexes, au coeur du 
problème : comment gonfler notre 
simple face un peu asthmatique en 
un double face turbo. 


Première étape, le matériel : 10 cen- 
timètres de fil électrique très fin (1/10 
de mm), un fer à souder à panne 
très fine (il s’agit malgré tout d’un 
travail demandant une certaine préci- 
sion) et un circuit intégré 74 LS 38, 
en vente chez tous les marchands de 
composants pour moins de 10 F. 


Cette opération à coeur ouvert va se 
dérouler en deux temps. Primo, ad- 
jonction du circuit intégré 74LS38 à 


la carte contrôleur comme décrit sur 
la figure 2. Secundo, soudure d’un fil 
électrique (shunt) entre les pattes 12 
et 32 du connecteur du lecteur, 
aprés avoir isolé cette dernière 
comme indiqué en figure 3. Voyons 
en détail chacune des deux opéra- 
tions. 


Commençons donc par relier entre 
elles, et conformément à la figure 2, 
les différentes pattes du 74LS38 (2 
petits bouts de fils électriques 
conviennent parfaitement). Rappelez 
vous (nous l’avons déjà mentionné 
dans un précédent numéro) de dé- 
brancher votre fer avant de faire la 
soudure. Ceci fait, pliez (ou coupez 
délicatement) les pattes qui ne ser- 
vent à rien, puis soudez le circuit sur 
celui indiqué. À moins de séparer les 
deux circuits de plus de 5 millimè- 
tres, cette superposition n'empêche 
aucunement le contrôleur de réinté- 
grer son boîtier. La première partie 
de l’opération est terminée. 


À ce stade, deux possibilités : 


e ou vous êtes vraiment très mala- 
droit et votre contrôleur est clini- 
quement mort; 

e ou il sait désormais gérer un dou- 
ble face. 


Il ne reste donc plus qu’à modifier le 
lecteur. Pour supprimer le rôle de la 
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patte 32 on peut soit couper le 
contact en cuivre qui part de la patte, 
soit recouvrir cette dernière d’un 
bout de ruban adhésif pour l’isoler 
du connecteur. Soudez enfin une dé- 
rivation allant de la patte 12 à la 
patte 32, et modifier le support des 
shunts (il s’agit de l’élément situé en 
haut à droite de la carte du lecteur, 
juste derrière le fameux ‘resistor 


pack”) conformément a la figure 4. 


Schéma 4 


Interne faisant office de 1 et 2 


Votre système est désormais prêt. 
Tapez OLD DSK2ZOULOU et Oh 
miracle de l'électronique, la diode de 
DSK1 s'allume. Il ne vous reste plus 
qu’à initialiser votre face cachée pour 
pouvoir vous en servir. 


Si un utilisateur arrive à faire mar- 
cher un triple face qu’il nous écrive, 
nous serions heureux de le publier. 
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Certains de vos programmes, pour 
ne pas dire tous, comportent des er- 
reurs inexplicables. Par exemple, 
dans le numéro 4 page 9, pro- 
gramme ‘Formule 1”, le programme 
a accepté de tourner uniquement 
après avoir modifié la ligne 220, soit 
FOR 1 = 1 TO 60 ?. 


Albert Belou - 23 bis, rue Vauban - 
31000 Toulouse. 


Les programmes publiés dans 99 
Magazine sont tous soigneusement 
vérifiés avant publication. De plus, 
les listings qui apparaissent dans la 
revue sont imprimés en dernier lieu, 
ce qui fait que les risques d'erreurs 
sont très faibles. 


En ce qui concerne le programme 
mis en cause dans votre lettre, nous 
pouvons vous affirmer qu'il fonc- 
tionne normalement. Ce programme 
comporte beaucoup de DATA” et 
nous savons par expérience que 
cette instruction est la principale 
source d'erreurs lors de la saisie (il 
est très facile de remplacer un zéro 
par un ‘’O” ou d'oublier une vir- 
gule). 


J'ai tapé sur mon ordinateur le jeu 
"Trouvez le bon mot” mais, malheu- 
reusement, je ne peux pas l'utiliser. 
En effet, à chaque mot imprimé, 
j'obtiens le message ‘Aucune lettre” 
et à la solution, je découvre qu'en 
fait le message aurait dû être ‘Une 
lettre” ou ‘Deux lettres”, etc... J'ai 
essayé de trouver l'erreur et je pense 
que c'est à la ligne 2020 que le pro- 
gramme prend la direction ‘ligne 
2030”. Cela voudrait dire que E(LX) 
est toujours égal à 0. Je n'est pas été 


capable de pousser mes recherches . 


plus loin et j'aimerais que vous ap- 
portiez une solution à ce problème, 
ce qui me permettrait d'utiliser ce jeu 
qui me paraît intéressant. 


J'aimerais également savoir si vous 
vérifiez le matériel proposé dans les 
petites annonces. J'ai lu dans le nu- 
méro 5 qu'une personne vend un 
contrôleur et un lecteur de disquette, 
mais ceci dans un lot complet de 
9000 F. Pouvez-vous me donner un 
prix aproximatif de ce matériel d'oc- 
casion. 


Jean-Luc Delaunay - 54 Avenue 
Foch - 76290 Montivilliers 


Votre première question appelle la 
même réponse que pour la lettre 
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Courrier des lecteurs 
Alexandre Duback 


précédente. Nous vous invitons donc 
à vérifier Votre programme car il 
fonctionne parfaitement bien, tous 
nos lecteurs ayant fait l'acquisition de 
la cassette d'accompagnement peu- 
vent d’ailleurs en témoigner. A 
propos des cassettes d’accompagne- 
ment, et sans vouloir pousser à la 
consommation, il est bon de rappeler 
que pour un prix dérisoire (elles sont 
toujours vendues 55 F malgré les 
coûts de production qui ont plus que 
doublés en un an) nous vous évitons 
des heures de saisie et de recherche 
d'erreurs. 


Au sujet des petites annonces, il nous 
est matériellement impossible de 
contrôler ce que propose nos lec- 
teurs, et cela pour une raison évi- 
dente : nous sommes à Versailles, si 
quelqu'un vend un module ”’Basic 
Etendu” à Marseille. Nous ne 
connaissoris d’ailleurs pas de jour- 
naux qui pratiquent ce genre de 
sport, même lorsque les annonces 
sont ’lucratives”. Pour le prix du ma- 
tériel d'occasion, il n’y a qu'une 
seule règle : l'offre et la demande, et 
il est inutile d'essayer d’établir un ba- 
rème car les prix varient dans des 
proportions considérables. Ceci étant 
dit, pour le matériel proposé dans 
l'annonce citée dans votre lettre, 
9000 F nous semble être une somme 
tout à fait honnête, compte tenu du 
prix du matériel neuf. 


Après quelque peu d'hésitation, je 
vous adresse un bulletin d’abonne- 
ment. L'abandon par Texas du TI-99 
me dissuadait de m'abonner car je 
craignais votre disparition. Je préfé- 
rais donc acheter chaque numéro au 
fur et à mesure. Je vous fais donc 
confiance pour la suite car j'ai noté 
(en particulier dans les petites annon- 
ces) que beaucoup cherchent encore 
à se procurer du matériel TI. Cela ne 
m'étonne pas car utilisant un TI1-99 
depuis bientot deux ans, j'ai pu ap- 
précier sa fiabilité, même en utilisa- 
tion intensive. 


J'emploie le TI-99 surtout pour éta- 
blir mes propres programmes car je 
n'aime guère recopier des program- 
mes pré-fabriqués qui concordent ra- 
rement avec mes besoins. J'ai donc 
créé de nombreux programmes per- 
sonnels (gestion de mes affaires, 
comptabilité, traitement de texte, fi- 
chiers divers, etc...). 


A l'instar d'autres lecteurs, je vous fé- 


licite de l'édition de tuyaux sur l'As- 
sembleur car, n’ayant pas encore suf- 
fisamment maîtrisé son utilisation, 
vos renseignements m'aident beau- 
coup (le manuel de  l'Edi- 
teur/Assembleur ne comporte pas 
assez d'exemples). En particulier, j'ai 
intégré votre sous-programme de 
routines graphiques (numéro 4 de 
99 Magazine”) à un programme 
d'étude de fonctions mathématiques 
que j'avais établi depuis assez long- 
temps et qui permettait aussi le tracé 
de courbes, mais une seule à la fois. 
Votre sous-programme me permet 
aussi l'étude de fonctions paramétri- 
ques par superposition de plusieurs 
graphiques. J'ai aussi tapé à titre 
d'entraînement (11 pages... Ouf!) le 
programme de Master Mind (votre 
numéro 3) qui fonctionne de façon 
parfaite à la grande joie de mes en- 
fants. 


En vous encourageant fortement à 
continuer très longtemps la parution 
de votre intéressante revue, je vous 
prie de croire , Messieurs, à mes 
meilleurs sentiments. 


Jean Simoni - 77, rue Lafayette - 
94210 La Varenne. 


Cette aimable lettre constitue une ré- 
ponse au deux précédentes et 
prouve, si besoin est, que les listings 
publiés dans 99 Magazine sont dé- 
pourvus d'erreurs, d’autant plus que 
les programmes ‘’Master Mind” et 
’Routines graphiques” sont incompa- 
rablement plus complexes que les 
programmes ‘Trouvez le bon mot” 
et formule 1”. Merci, Monsieur Si- 
moni... 


Je suis heureux d’être abonné à 
votre revue et je souhaite que vous 
transmeîtiez mes félicitations et mes 
remerciements à toute l’équipe de ré- 
daction. 


Dans les numéros 4 et 5, vous déve- 
loppez un article sur le graphisme en 
haute résolution. Comme Gérard 
Santraille et Jean-Luc Bazanegue 
nous y invitent, j'ai ‘accroché ma 
ceinture...” Malheureusement, je ne 
possède pas le module Mini-mémoire 
ou l'Editeur/Assembleur. Dans ces 
conditions, vous serait-il possible de 
prolonger cet article pour la configu- 
ration suivante : Basic Etendu, carte 
32 Ko et lecteur de disquettes. 


Toujours dans le cadre des graphis- 
mes, vous serait-il possible de m'indi- 





quer la façon d'obtenir des copies 
d'écran sur Seikosha GP100. 


Alain Crozet - 15, rue B. Palissy - 
16340 L'Isle d'Espagnac. 


Les routines graphiques ne peuvent 
malheureusement pas fonctionner 
avec le Basic Etendu, et ceci pour 
une raison très simple: ce module 
utilise la partie haute de l’extension 
de mémoire pour le stockage du pro- 
gramme Basic, qui viendrait écraser 
les routines en assembleur et le tam- 
pon ?’TIMAGE”. Nous n'avons pas 
encore trouvé la solution pour ”faire 
croire” au Basic Etendu que l’exten- 
sion de mémoire n’est pas présente. 
La seule solution que nous puissions 
vous proposer est d'acquérir un mo- 
dule Mini-mémoire; ceci est à nou- 
veau possible car ”’La règle à calcul” 
a pris l'initiative de reprendre la fabri- 
cation des modules ”’Mini-mémoire” 
et ‘’Basic Etendu” ainsi que d’une in- 
terface parallèle qui ne nécessite pas 
le boîtier d'extension. 


Le programme de copy d'écran sur 
Seikosha, publié dans ce numéro de- 
vrait vous satisfaire. 


Je suis possesseur d’un TI-99/4A 
acquis en novembre 1983. Lors de 


cette acquisition, le vendeur m'avait 
dit que je bénéficiais d’un abonne- 
ment gracieux à ‘99 Magazine”. J'ai 
effectivement reçu - et apprécié - les 
trois premiers numéros de ce maga- 
zine. Je vous serais reconnaissant de 
m'adresser les numéros suivants et 
vous en remercie d'avance. 


Albert Plantier - 8, rue du Chatanay 
- 38230 Tignieu. 


Nous vous remercions pour l'intérêt 
que vous portez à notre revue mais 
permettez nous de mettre les choses 
au point: Texas instruments France 
nous avait acheté des exemplaires 
des numéros 1, 2 et 3 afin de les re- 
mettre à leurs clients. Lors de l'arrêt 
de la commercialisation du TI, le 
nombre d'exemplaires à envoyer gra- 
tuitement était supérieur au nombre 
d'appareils restant à vendre; ceci ex- 
plique que vous ayez reçu trois nu- 
méros, alors que le bon accompa- 
gnant le TI lors de l’achat spécifiait 
"Pour obtenir GRATUITEMENT un 
exemplaire de cette revue...”. Il est 
possible que certains revendeurs 
aient utilisé cet ‘abonnement fan- 
tôme’” comme argument de vente 
mais si tous les utilisateurs de TI 
étaient abonnés gratuitement à 799 
Magazine”, il est fort probable que 
nous ne surviverions pas longtemps. 


Existe-t-il une méthode pour accéder 
à une autre partie de la mémoire 
(2000 à 3FFF ou A000 à FFFF) sans 
extension de mémoire. 


Emile Fraysse - 25, Avenue Emile 
Dewditine - 31200 Toulouse 


Ces adresses étant situées physique- 
ment dans l'extension 32 Ko, vouloir 
y accéder reviendrait à demander à 
un facteur de poster une lettre au 
numéro 50 d’une rue ne comportant 
de 25 habitations. 


Est-il possible de concaténer des 
sous-chaînes” de caractères de lon- 
gueur finie (constantes) se terminant 
par des “blancs” ? Je n'ai pas réussi 
et ai réglé le problème en terminant 
chaque sous-chaîne par un point 


Jean-Pierre Boisnard - 163, Avenue 
de Grandre Bretagne - 31300 Tou- 
louse 


Nous pensons que votre question 
porte sur les chaînes de caractères 
sous forme de DATA. Dans ce cas, 
pour que les espaces précédant et 
suivant la chaînes soit reconnus, il 
faut que la chaîne soit fermée par 
des guillemets. & 


Petites annonces (gratuites) 


Vends module Echecs en français, 
ou échange contre module Terminal 
Emulator Il”. 


Achète boîtier d'extension avec, au 
minimum, la carte RS232. Bernard 
Gibon - 5, rue des frères Morane - 
75015 Paris - 828.73.10 le soir. 


Recherche lecteur de disquettes et 
contrôleur. Alain Crozet - 15, rue B. 
Palissy - 16340 L'Isle d'Espagnac. 


Vends TI-99/4A, Boîtier d’extension, 
carte 32 Ko, lecteur de disquettes, 
Basic Etendu, Logo et nombreux 
autres modules, documentation, 
livres et programmes. C. Duchenov - 
1, Avenue de la république - 94380 
BONNEUILL - 339.15.08 le soir. 


Cherche boîtier d'extension, carte 32 
Ko, carte RS232, contrôleur et lec- 
teur de disquettes, imprimante, Edi- 
teur/Assembleur, TI-Calc. (99) 
68.99.45. 


Vends 
Wumpus, 


modules 
Meteor 


Chisholm trail, 
multiplication, 


Alien addition, Démolition division. 
120 F pièce ou 550 F le tout. Crozet 
- 15, rue B. Palissy - 16340 L'Isle 
d’Espagnac. 


Recherche 2 modules Speech edi- 
tor”’ et 2 carte contrôleur de disquet- 
tes. Centre médical de rééducation 
logopédique - Square Roosevelt, 2 - 
7000 Mons - (065) 33.12.26. 


Achète interface RS232 et donne en 
supplément programmes au choix. 
Eric Lafeil - 10, Chemin de la gout- 
tière - 91310 Montlhéry - (16-6) 
901.50.17. 


Vends 600 F  Editeur/Assembleur 
avec manuel ’Initiation au langage 
assembleur du Texas Instruments TI- 
99/4A”. Laurent De Bellis - 16, rue 
Hector Malot - 69007 Lyon - (7) 
869.21.74 le week end. 


Recherche module Basic Etendu. 
Morlon - 80, rue de la République - 
54140 Jarville - (8) 354.20.59 après 
20 h. 


Vends TI-99/4A. Modules Parsec, In- 
vaders, Hustle, Star Trek, Echecs, 
Music Maker. Manettes de jeux, cor- 
don magnéto, 2 livres programmes et 
3 cassettes 99 Magazine. Le tout en 
très bon état pour 2800 F. Pierre Pe- 
titjean - 7, rue d’Alembert - 18000 
Bourges - (48) 65.62.54. 


Recherche programmes sur K7 ou 
listing pour échanges prolongés. Mi- 
chel Hanne - 16, rue du Cura - 1400 
Nivelles - Belgique. 


Vends TI-99/4A acheté 9/83, ma- 
nuel, cordon magnéto, manettes, 
nombreux programmes et livres. Le 
tout 1500 F. G. Burdallet - Quartier 
du Roure - 13370 Mallemort. 


Vends TI-99, magnétophone Philips, 
cordon magnétophone, Parsec, Re- 
tour du pirate, jeux ‘rétro Il”, et dif- 
férents programmes et livres. 2500 F. 
Stéphane Battistella - 75 bis rue Mi- 
chel-Ange - 75016 Paris - (1) 
651.34.91 après 18 h. 

ps] 
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99 Magazine s'adresse... 


… aux débutants 


Vous venez d'acquérir un TI-99/4A. Tout est maintenant déballé et installé et vous êtes en train de découvrir 
qu’un ordinateur, ça ne marche pas tout seul... Il existe bien des brochures d'accompagnement, mais elles ne sont pas 
toujours rédigées de façon claire. En outre, le seul renseignement dont vous avez besoin en ce moment ne s’y trouve 
peut-être pas. 

99” vous apporte chaque trimestre de nombreux renseignements, des programmes complets, des exemples. 
Déjà, notre premier numéro comporte d'importants articles d'initiation au Basic ou de présentation de programmes. 


De plus, 99” édite avec chaque numéro une cassette regroupant tous les programmes du numéro. Vous 
pouvez ainsi utiliser des programmes que vous y avez vus, même si vous n'avez pas complètement compris le listing. 
En effet, vous savez bien utiliser des jeux ou des programmes de gestion de fichiers sans pour autant être capables de 
comprendre intégralement le listing de ces programmes. 


























.… aux habitués 


Malgré l'apparition récente du TI-99 sur le marché européen, vous êtes déjà nombreux qui, habitués, maîtrisez 
bien l’un des Basics. Nous analysons pour vous et testons les nouveaux produits, logiciels et matériels. Nous vous 
donnons des idées pour résoudre des problèmes qui vous tracassaient depuis longtemps. 


En étudiant les nombreux programmes que nous vous proposons, vous pourrez perfectionner votre connais- 
sance du Basic simple et du Basic Etendu mais aussi, à partir des prochains numéros, vous initier au Pascal et à 
l’'assembleur. Dans pratiquement chaque numéro de 99”, vous trouverez des recettes ou des programmes pour mieux 
programmer et utiliser votre TI-99. 





..… aux experts 


Vous êtes déjà quelques-uns à mériter le titre d'experts. Chacun d’entre vous connaît plus particulièrement un 
langage ou un domaine d'application. 99”, en publiant les écrits d’autres experts, peut vous en apprendre plus, que 
ce soit dans votre domaine de prédilection ou dans d’autres domaines. 





.. à tous ses lecteurs 


Quel que soit votre niveau, vous pouvez avoir des informations, des idées ou des programmes à transmettre 
aux autres. Faites nous les parvenir’ afin que nous puissions faire partager ce savoir que vous avez acquis. L'idéal est de 
nous envoyer une cassette avec vos programmes et un article dactylographié. N'oubliez pas d'indiquer votre adresse et 


votre numéro de téléphone ! 


BULLETIN D’ABONNEMENT 


Je désire recevoir pour le N° |] de 99 magazine 
[_ ] le numéro avec cassette SSP TFC 
[_] le numéro sans cassette 40 F TTC 
ET 0 D RON JF TIC 


Je désire m'abonner pour 4 numéros 

à partir du N°! ] 
MT 320 FE TIC 
ET CR CO CN RE 10 135 FT 














nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nn nso ss msn ssesee 
CRE EE 


CORRE EEE EEE EE 


Ces tarifs comprennent l’envoi postal en France Métropolitaine et CEE (voie aérienne exceptée) 
Envoi par avion : + 40 F pour un abonnement - + 10 F pour un numéro seul 


Envoyez ce bon de commande et votre règlement à : 
Editions MEV - 64-70, rue des Chantiers - 78000 Versailles 
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ACCESSOIRES TI 99/4 PRIX TTC 
Modulateur SECAM France 500,00 
Câble liaison magénto-cassettes 100,00 
Paire manettes jeux 210,00 
Magénéto-cassettes compatible T.I 

LANSAY avec compteur 

+ câble magnéto compris 370,00 
Imprimante GPSOA papier thermique| 1.305,00 


A vos consol es T.1 = 99/. 4, ne si GP 500 2 500.00 


Interface parallèle extérieure 1.090,00 


basic étendu disponible En send UN 300.00 


Mémoire extrension 32 K extérieure .340,00 
Basic par soi-même 70,00 


LA REGLE A CALCUL Aide à la programmation 75,00 
sort une extension mémoire 32 K extérieure pour la console TI 99/4. ORGANISATION 
Avec 48 K ram, vous allez réaliser des programmes plus performants. Conseil financier 75,00 
Gestion fichier 260,00 
Gestion rapports 375,00 
Statistics 206,00 
Ti calc 360,00 
Gestion privée 360,00 





MODULES LOISIRS 

Connect four 147,00 
Munch Man 252,00 
Othello 206,00 
The attack 147,00 
Jeux Rétro Il 147,00 





' Ti-invaders 206,00 
BRANCHEMENT IMMEDIAT EXTENSION 32 K 1 340 F Jeux vidéo II 147,00 


INTERFACE IMPRIMANTE 1 090 F ins FAP 


NOUVEAUX LOGICIELS TEXAS 
Retour pirate 250,00 


PROMOTION =. = 
Mash 250,00 


Burger time 250,00 
LIVRAISON OCTOBRE Hopper 250,00 
Star treck 250,00 
Jaw breaker 250,00 
Treasure Island 250,00 
LOT N° 1 LOISIRS LOT N°5 Microsurgeon 250,00 


Module basic étendu Module basic étendu Moonsweeper 250,00 
+ + 


Interface parallèle centronics Munch man PROGRAMMES COLLINS/TEXAS 

+ + Introd. au TI 99/4 (1) 75,00 
Imprimante Seikosha GP 500 Invaders Introd. au Ti 99/4 (2) 75,00 
colonnes | Les techniques des programmes 
L'ensemble : 4 290 F TTC Jeux Vidéo:z de jeux (1) 75,00 





100000 











Les techniques des programmes 
Jeux retros 2 de jeux (2) 75,00 


+ 


Lunar lander 2 (pilote spatial 


LOT Ne 2 Introduction aux jeux 1 et 2 25 étapes) 95,00 


Module basic étendu L'ensemble : 1 540 F TTC 
A 





HEBDOGICIELS SOFTAWARE 

Extension mémoire ext. 32 K TINE 1 Basic simple K7 : 12 jeux 150,00 
on TI N° 2 Basic étendu : 12 jeux 150,00 

Interface parallèle centronics pour TI Rubis sacré Jeu d'aventures 

TI 99 basic étendu 90,00 


+ GESTION LOT N° 6 
Imprimante EPSON RX 80 Module basic étendu 


L'ensemble : 6 560 F TIC + ATARI SOFT 
Conseils financiers Pole position 


; R + Moon patrol 
Gestion fichiers Jungle hunt 


GESTION LOT N° 3 + Defender 
TI Calc 
Module basic étendu ñ 


Gestion privee 
L'ensemble : 1 755 F TTC 


























Basic par soi-même 


+... BON DE COMMANDE : °°: 
TARIFS OCTOBRE 1984 


Nom 
Prenom 
Adresse 





Gestion privee 
Aide à la programmation 
L'ensemble : 1 205 F TTC 


LOISIRS LOT N° 7 


LOISIRS LOT N° 4 Module basic étendu 


+ 
Module basic étendu SOFTWARE HEBDOGICIELS 
+ TI n° 2 basic étendu 12 jeux 

+ 





Code Postal 


Ville 
Retour du Pirate Ces prix sont indicatifs et peuvent être modifiés sans 


+ Rubis sacré (jeu d'aventures) Dreavis 
+ 





Startreck Produits disponibles dans la limite de nos stocks en ma- 


+ Lunar lander 2 (pilote spatial gasin 


Introduction au jeux 1 25 étapes) 
+ + 
Introduction au TI 1 Introduction au TI 99 1 
+ + 
Basic par soi-même Technique programmation de jeux 1 


L'ensemble : 1 425 F TTC L'ensemble : 1 185 F TIC 


Participation aux frais de port et d'expédition en recom- 
mande pour les logiciels : + 30 F. 

LA REGLE A CALCUL 

65/67, bd Saint-Germain, 75005 PARIS 

Tel : 32568.88 - Téelex : ETRAV 220064F/1303 RAC 

+ Livraison des produits disponibles sous 8 jours. 


CC 


CRC 





nm mme 


Texas Instruments vient de ceder sa licence de fabrication de la console TI 99 à une firme japonaise qui compte sortir ce produit pour la fin de l'annee. 
Aux U.S.A., une étude de contrôleurs et d'unités de disques pour TI 99 double face, double densité, est prevue pour fin septembre utilisation externe. Des essais sont 
en cours en R.F.A. pour utiliser ce controleur dans le systeme RAC integre. 
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Nouveautés 


BOITE A OUTILS POUR 
TI-99/4A par Marcel Henrot 


Ces livrés de poche n’ont pas la prétention de 
livrer le secret des grandes applications informa- 
tiques, mais bien L mettre à la disposition des 
utilisateprs des petits programmes tout prêts qui 
leur permettront de résoudre de.nombreux pro- 
Blèmes de la vie quotidienne. La Boîte à Outils 
pour TI-99/4A vous permettra d'élaborer des 
dessins cubiques, d'agrandir un caractère, de 
transformer l'ordinateur en prof de maths, de tra- 
cer une ellipse… 

Format : 11,5x 18 - 128 pages - 35,00 FF / 
250 FB / 12,20 FS 

Port : 10 FF / 50 FB/ 1,50 FS. 


102 PROGRAMMES POUR 
LELIL TN par Jacques Deconchat 


Apprendre en'se distrayant, tel est l'objectif de 
ce livre. Ces 102 programmes, classés par niveau 
vous permettront de découvrir l'ordinateur indi- 
viduel TI-99/4A et d'acquérir progressivement 
des connaissances nouvelles et une plus grande 
maîtrise du Basic. La description des jeux propo- 
sés (jeu de l’oie aléatoire, saute-mouton, dé tru- 
qué, mastermind, échiquier, pendu...) est suivie 
‘un programme commenté et d’un exemple 
d'utilisation. 
Format : 25x 17 - 240 pages - 110,00 FF / 
850 FB / 34,60 FS. 




















[WDrliee]t)| 44:45 
DU TI-99/4A 


par Frédéric Lévy et Dominique Schraen 

Une approche progressive et attrayante pour les 
débutants qui veulent apprendre la programma- 
tion en Basic du TI-99/4A. Ils commenceront par 
apprendre les instructions classiques du Basic tel- 
les qu’elles existent sur le T1-99/4A. Ils découvri- 
ront ensuite les possibilités graphiques et musi- 
cales de cetsordinateur grâce à de nombreux 
exemples et exercices. 

Format 14,5 x 21 - 144 pages - 90 FF / 
695 FB / 28,40 FS. 


EXERCICES POUR TI-99/4A 


par Frédéric Lévy 

Ce livre est destiné à tous ceux qui connaissent 
les instructions Basic du TI-99/4A et qui ne mat- 
trisent pas encore la programmation. Ce recueil 
d'exercices est une invitation à l'analyse et à la 
programmation de problèmes simples et fréquem- 
ment rencontrés (calculs, tris, traitement de 
texte...). L'énoncé de chaque exercice est suivi 
de son analyse, une ou deux solutions commen- 
tées sont proposées. 

Format 14,5 x 21 - 144 pages - 90 FF / 
695 FB / 28,40 FS. 






Envoyer ce bon accompagné de votre réglement à 


P.S.1 DIFFUSION 


B.P. 86 - 77402 Lagny-s/Marne Cedex - FRANCE 


Téléphone : (6) 006.44.35 


ou pour la Belgique et Luxembourg à : 


P.S.1, BENELUX 


5, Av. de la Ferme Rose - 1180 Bruxelles BELGIQUE 


Téléphone : (2) 345.08.50 


en Suisse : P.S.1. SUISSE 
Case Postale - Route Neuve 1 - 1701 Fribourg SUISSE 
Téléphone : (037) 23.18.28 - C.C.P. : 17.56.84 


au Canada : S.C.E. INC 


65, Avenue Hiliside - Montréal (Westmount) Québec H 3 Z 1 W 1 - Tél. : (514) 935.13.14 
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JEUX, TRUCS ET COMPTES 
POUR TI-99/4A 


par Michel Benelfoul. 

Que programmer ? Comment ? Pour quoi 
faire 2... « Jeux, trucs et comptes pour TI-99/4A.» 
propose aux novices de la programmation 30% 
pre rammes en Tl-Basic commentés et décrits à 
‘aide d’un exemple d'exécution et d’un organi-” 
gramme. Fonctions Tl-Basic, jeux passifs et inter- 
actifs, interludes, « trucs », paie, facturation sim- 
ple et routines, l’ensemble de ce recueil très varié 
leur permettra d'utiliser au mieux toutes les fonc: 
tions de leur TI-99/4A. 

Format 17 x 25 - 176 pages - 90 FF / 695 FB / 
28,40 FS. 


LE TI-99/4A A l'AFFICHE 


par Jean-Francois Sehan 

Cet ouvrage, qui s'adresse aux possesseurs de 
TI-99/4A, regroupe 20 programmes à caractère 
utile, familial ou ludique. Du päpier peint à la cui- 
sine en passant par le Baccara et la fête foraine; 
chaque programme est accompagné d’un orga- 
nigramme, duré liste de variables et d’une expli- 
cation de chaque ligne Basic, pour l'adaptation 
éventuelle à d'autres ordinateurs. 

Format 17 x 25 - 144 pages - 90 FF / 
695,00 FB / 28,40 FS. 
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